Tambien puedes convertir la cadena de texto que tiene la fecha a una variable de fecha (Date) con la función Cdate por ejemplo:mmm mucho mejor Gracias cpmario :smartass: :smartass:Código: Text
Sub CVDate() Dim strFecha1 As String Dim strFecha2 As String Dim datFecha1 As Date Dim datFecha2 As Date strFecha1 = "29/01/06" strFecha2 = "05/06/06" datFecha1 = CDate(strFecha1) datFecha2 = CDate(strFecha2) If datFecha1 > datFecha2 Then MsgBox "La fecha " & strFecha1 & " es mayor que " & strFecha2 Else MsgBox "La fecha " & strFecha1 & " es menor que " & strFecha2 End If End Sub
:comp: