Código de Basic - pasar fecha formato dd/mm/yyyy a texto

Imágen de perfil

pasar fecha formato dd/mm/yyyy a textográfica de visualizaciones


Basic

Actualizado el 26 de Enero del 2015 por Francisco (Creado el 23 de Enero del 2015)
1.948 visualizaciones desde el 23 de Enero del 2015. Una media de 21 por semana
Función en GFA-BASIC que devuelve una fecha en formato escrito. Ejemplo, 10/01/2015. Devuelve diez de enero de dos mil quince.- La fecha a la función se envía mediante DATE() o desde el control MonthView incluidas en el compilador. Como limitación: No agregue transformación de año por la cual debe cambiarse cambiando la variable correspondiente.

Requerimientos

Requiere GFA-BASIC 32 bits. Quizás se pueda adaptar a otros dialectos BASIC, cosa que no he probado.

1

Actualizado el 26 de Enero del 2015 (Creado el 23 de Enero del 2015)gráfica de visualizaciones de la versión: 1
1.949 visualizaciones desde el 23 de Enero del 2015. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Version 1. nada que agregar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
Function datetotext(fch As Date)
  // Combierte fecha formato dd/mm/aaaa en fecha escrita.
  // Falta codificar la parte que transforma el año
 
 
  Dim unidad$, n$
  Dim decena$
  Dim anio$
  Dim resultado$
  Dim mes$
  Dim fecha$
  anio$ = "dos mil quince.-"
  n$ = Day(fch)
  unidad$ = ""
  decena$ = ""
  Select Case Mid$(n$, Len(n$), 1)
  Case  "1"
    unidad$ = "uno"
  Case  "2"
    unidad$ = "dos"
  Case  "3"
    unidad$ = "tres"
  Case  "4"
    unidad$ = "cuatro"
  Case  "5"
    unidad$ = "cinco"
  Case "6"
    unidad$ = "seis"
  Case  "7"
    unidad$ = "siete"
  Case "8"
    unidad$ = "ocho"
  Case  "9"
    unidad$ = "nueve"
  Case  "0"
    unidad$ = ""
 
  End Select
 
  If Len(n$) > 1 Then
    Select Case Mid$(n$, Len(n$) - 1, 1)
    Case "1"
      Select Case Mid$(n$, Len(n$), 1)
      Case "0"
        decena$ = "diez"
        unidad$ = ""
      Case  "1"
        decena$ = "once"
        unidad$ = ""
 
      Case  "2"
        decena$ = "doce"
        unidad$ = ""
 
      Case "3"
        decena$ = "trece"
        unidad$ = ""
 
      Case  "4"
        decena$ = "catorce"
        unidad$ = ""
 
      Case  "5"
        decena$ = "quince"
        unidad$ = ""
 
      Case"6"
        decena$ = "dieci"
 
      Case "7"
        decena$ = "dieci"
 
      Case "8"
        decena$ = "dieci"
 
      Case "9"
        decena$ = "dieci"
 
      End Select
 
    Case  "2"
      If unidad$ = "" Then decena$ = "veinte" Else decena$ = "veinti"
    Case "3"
      If unidad$ = "" Then decena$ = "treinta" Else decena$ = "treinta y "
    Case  "4"
      If unidad$ = "" Then decena$ = "cuarenta" Else decena$ = "cuarenta y "
    Case  "5"
      If unidad$ = "" Then decena$ = "cincuenta" Else decena$ = "cincuenta y "
    Case "6"
      If unidad$ = "" Then decena$ = "sesenta" Else decena$ = "sesenta y "
    Case  "7"
      If unidad$ = "" Then decena$ = "setenta" Else decena$ = "setenta y "
    Case  "8"
      If unidad$ = "" Then decena$ = "ochenta" Else decena$ = "ochenta y "
    Case "9"
      If unidad$ = "" Then decena$ = "noventa" Else decena$ = "noventa y "
    End Select
  End If
  Select Case Month(fch)
  Case  1
    mes$ = "enero"
  Case 2
    mes$ = "febrero"
  Case 3
    mes$ = "marzo"
  Case  4
    mes$ = "abril"
  Case  5
    mes$ = "mayo"
  Case  6
    mes$ = "junio"
  Case 7
    mes$ = "julio"
  Case 8
    mes$ = "agosto"
  Case  9
    mes$ = "septiembre"
  Case 10
    mes$ = "octubre"
  Case 11
    mes$ = "noviembre"
  Case  12
    mes$ = "diciembre"
  End Select
 
  resultado$ = decena$ + unidad$
  fecha$ = resultado$ + " de " + mes$ + " de " + anio$
  datetotext = fecha$
 
End Function



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3015