esto tiene un error
Publicado por dison peña (14 intervenciones) el 15/11/2002 19:19:21
esta manera que me diste para convertir los text box a fecha tiene un error miralo bien y aver si lo encuentra
Dim FechaA As Variant
Dim FechaB As Variant
FechaA = CDate(Format(DiaIng, "00") & "/" Format(MesIng, "00") & "/" & AñoIng)
FechaB = CDate(Format(DiaIng, "00") & "/" Format(MesIng, "00") & "/" & AñoIng)
'luego obtienes la diferencia en dias
Dim Dias As Long
Dias = DateDiff("D", FechaB, FechaA)
Dim FechaA As Variant
Dim FechaB As Variant
FechaA = CDate(Format(DiaIng, "00") & "/" Format(MesIng, "00") & "/" & AñoIng)
FechaB = CDate(Format(DiaIng, "00") & "/" Format(MesIng, "00") & "/" & AñoIng)
'luego obtienes la diferencia en dias
Dim Dias As Long
Dias = DateDiff("D", FechaB, FechaA)
Valora esta pregunta


0