Imprimir página | Cerrar ventana

Problema con fecha

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84661
Fecha de impresión: 26/Marzo/2026 a las 18:58


Tema: Problema con fecha
Publicado por: ximo
Asunto: Problema con fecha
Fecha de publicación: 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


Respuestas:
Publicado por: lbauluz
Fecha de publicación: 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


-------------
El Búho es un pajarraco

Publicado por: ximo
Fecha de publicación: 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


Imprimir página | Cerrar ventana