26/08/2005, 11:54
|
| | | Fecha de Ingreso: marzo-2005
Mensajes: 95
Antigüedad: 19 años, 1 mes Puntos: 1 | |
| funcion pa grabar
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 |