Problema con fecha |
Responder |
Autor | |
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
Tema: Problema con fecha Enviado: 23/Agosto/2019 a las 19:01 |
Hola,
Trato de sacar una fecha de una tabla para operar con ella y no hay manera siempre me saca (19-12-1899). Esto es lo que intento y no me sale. Dim MiFecha As Date MiFecha = Format(Nz(DLookup("FechaCambio", "TCambios"), ""), "dd-mm-yyyy") MiFecha = DateDiff("d", Date, MiFecha) If MiFecha > 10 Then MsgBox "estoy en rango" Else Exit Sub End If En principio había puesto el DLooKup dentro de DateDiff por acortar pero al no funcionar lo he sacado con el mismo resultado. Seguro que luego me daré cabezazos contra la pared pero ahora no lo veo. Gracias, ximo
|
|
La incansable busqueda de información abre nuestras mentes
Saludos desde Burriana |
|
lbauluz
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3849 |
Enviado: 23/Agosto/2019 a las 19:22 |
Hombre, estas intentando guardar un entero en un campo date...
prueba así Sub prueba() Dim MiFecha As Date Dim xx As Integer MiFecha = Format(Nz(DLookup("FechaCambio", "TCambios"), ""), "dd-mm-yyyy") xx = DateDiff("d", Date, MiFecha) If xx > 10 Then MsgBox "estoy en rango" End If End Sub Luis
Editado por lbauluz - 23/Agosto/2019 a las 19:23 |
|
El Búho es un pajarraco
|
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
Enviado: 23/Agosto/2019 a las 19:35 |
Perfecto, ya decía yo que la cosa era una chuminada.
Gracias podemos cerrar. Saludos, ximo
|
|
La incansable busqueda de información abre nuestras mentes
Saludos desde Burriana |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |