https://foro.gambas-es.org/viewtopic.php?f=1&t=6596
-----------------------------------
alessandri
Jueves, 31 Agosto 2017, 12:50

Obtener Fecha Actual
-----------------------------------
Hola amigos,
Tengo el siguiente problema con la última actualización de gambas3 (3.10).

Al intentar mostrar la fecha actual del sistema uso el siguiente procedimiento
para un objeto valuebox:

[code linenumbers=false syntax=gambas]fecha.Text = Module1.FecAct(Date)

Public Function FecAct(Dato As String) As String 'Devuelve la fecha actual a partir de DATE
    Dim final As String
    Dim dia As String
    Dim mes As String
    Dim ano As String
    
    mes = Mid(Dato, 1, 2) 'no la he cambiado porque esta funcionando bien!
    dia = Mid(Dato, 4, 2)
    ano = Mid(Dato, 7, 4)
    
    final = dia & "/" & mes & "/" & ano
    
    Return final
End
[/code]
En las versiones anteriores funcionaba bien, y ahora se muestra la fecha
pero le resta un día.

¿Hay otra forma de obtener la fecha correctamente?

Gracias.


-----------------------------------
jguardon
Jueves, 31 Agosto 2017, 13:53

Re: Obtener Fecha Actual
-----------------------------------
Sí, mucho más sencillo:


[b]Now[/b] devuelve un objeto de tipo Date con la fecha y hora actual. Luego es sólo cuestión de formatear la salida de texto como desees.

[code linenumbers=false syntax=gambas]fecha_actual = Format(Now, "mm/dd/yyyy")[/code]

En caso de necesitar representar la fecha en un datebox, sólo es necesario pasar Now directamente a la propiedad Value del datebox:


[code linenumbers=false syntax=gambas]my_datebox.Value = Now[/code]



http://gambaswiki.org/wiki/cat/userformat?l=es#t4

Saludos


