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:
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
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
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.
Granada
