funcion pa grabar

[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

[Sebasedeno]

Yo te sugeriria que hagas directamente fecha = Now y con eso deberia andar. Deberia grabar la fecha y hora actual
Suerte

[David]

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

[GeoAvila]

talvez este formato te pueda ayudar..

Format$(Time, "Short Time")

nos vemos..

[alex_escudero14]

muchas gracias amigos
me dio resultado lo que me dijo david el grande pero igual a todos ud.s les agradesco
alex