Private Sub SSDateCombo1_LostFocus()
Dim resp As String
Dim MesesDespues As Integer
Dim DiasDespues As Integer

SSDateCombo1.Format = "DD/MM/YY, DDDD"
Calcula la diferencia en das que existe de la fecha para la reservacin con
la fecha actual
DiasDespues = DateDiff("d", Format(Now(), "dd/mm/yyyy"), Left(SSDateCombo1.DateValue, 10))
Calcula la diferencia en meses que existe de la fecha para la reservacin
con la fecha actual
MesesDespues = DateDiff("m", Format(Now(), "dd/mm/yyyy"), Left(SSDateCombo1.DateValue, 10))
Si la reservacin es para una fecha anterior a la actual, avisa si se desea
continuar
If DiasDespues < 0 Then
resp = MsgBox("Esta introduciendo una reservacin con una fecha menor a la actual, desea proseguir?", vbYesNo)
        If resp = vbNo Then
        SSDateCombo1.SetFocus
        End If
End If
Si la reservacin es para una fecha anticipada a seis meses o mas, avisa si
se desea continuar
If MesesDespues > 6 Then
    resp = MsgBox("Esta introduciendo una reservacin con mas de 6 meses de anticipacin, desea proseguir?", vbYesNo)
    If resp = vbNo Then
        SSDateCombo1.SetFocus
    End If
End If
End Sub
