Cita:
Iniciado por alex_escudero14 Function FechaGrabar() As String
Dim cadena As String
Dim Cadena2 As String
Dim fecha As String
cadena = Mid(CStr(FecApe), 1, 10)
Cadena2 = Mid(CStr(Now), 11, Len (CStr(Now)))
fecha = cadena + Cadena2
FechaGrabar = fecha
End Function
quiero que esta funcion me guarde la hora y fecha actual en un campo pero lo que me graba es esto :"01/01/1900 18:20:41"
como veras me graba bien la hora pero la fecha no..siempre sale 01/01/1900
quisiera saber que puedo modificar en esta funcion o si esta ok
alex
Pero seguro que la Cadena1 y la Cadena2 te devuelven valores correctos??????? Además, si simplemente quieres la Fecha Actual no Necesitas todo ese código, solo así......
Código:
Function FechaGrabar() As String
FechaGrabar = CStr(Date) & " " & CStr(Time)
End Function
ok, nos vemos......