Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Basic » Código de Basic - pasar fecha formato dd/mm/yyyy a texto

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

Volver
Agregar Código Fuente
<<>>
Imágen de perfil

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


Basic

Actualizado el 28 de Enero del 2019 por Francisco (3 códigos) (Publicado el 23 de Enero del 2015)
3.530 visualizaciones desde el 23 de Enero del 2015
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 (Publicado el 23 de Enero del 2015)gráfica de visualizaciones de la versión: 1
3.531 visualizaciones desde el 23 de Enero del 2015
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s3015