0

Tengo que compara las fechas que estan vencidas, que significa esto, por ejemplo: Si hoy es 06/04/2021 y la fecha de vencimiento es 01/04/2021, esto significa que esta vencida. Si hoy es 30/03/2021 y la fecha de vencimiento es 06/04/2021, esto significa que no esta vencida. en el codigo tengo today(que es la fecha actual) y fechavencimiento, como seria a modo de codigo? Ayuda

3 respuestas 3

0
Dim FechaComparar = "10/7/2021"
Dim FechaActual = "19/7/2021"
Dim Diferencia = Date.Parse(FechaComparar).CompareTo(FechaActual)
If Diferencia > 0 then
Msgbox("Tiene vigencia")
else
Msgbox("Esta Vencido")
End If

El método CompareTo devuelve un numero, si ese numero es mayor que 0 entonces la fecha que se compara todavía no a pasado, pero si es menor entonces la fecha que se compara ya paso.

0
' Puedes comparar-las directamente así 
Dim FechaToday As Date = "30/03/2021" ' Aquí puedes usar Now()
Dim FechaVencimiento As Date = "06/04/2021"

If FechaToday < FechaVencimiento Then
    MsgBox("Fecha No Vencida")
Else
    MsgBox("Fecha Vencida")
End If

' Si no usa DateDiff de VB. 
' Ejemplo:

Dim FechaComparar As Date = "10/7/2021"
Dim FechaActual As Date = "19/7/2021"
Dim Dias as Integer = DateDiff(DateInterval.Day, FechaComparar, FechaActual, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)
Msgbox(Dias)
-1

Creo que esto te puede servir:

Dim resultado As Integer = DateTime.Compare(fecha1, fecha2)

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.