** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Problema con fecha
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoProblema con fecha

 Responder Responder
Autor
Mensaje
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje 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
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Enlace directo a este mensaje 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
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable