fechas con mscal.ocx

josejoa
08 de Agosto del 2004
'Estoy haciendo una pequeña aplicación para hallar el signo del Zodiaco y utilizo mscal.ocx. Para el año actual va bien pero para otro año no reconoce las fechas. ¿Alguién sabe el porqué? Gracias. El código sería así:

Option Explicit

Private Sub Calendar1_Click()
Call signoZod2
End Sub

Function signoZod2()

Dim directorio As String
directorio = App.Path
directorio = directorio & "signos"
If Calendar1.Value >= DateValue("21/03") And Calendar1.Value <= DateValue("04/19") Then
MsgBox "aries"
ElseIf Calendar1.Value >= DateValue("20/04") And Calendar1.Value <= DateValue("20/05") Then
MsgBox "tauro"
ElseIf Calendar1.Value >= DateValue("21/05") And Calendar1.Value <= DateValue("21/06") Then
MsgBox "geminis"
ElseIf Calendar1.Value >= DateValue("22/06") And Calendar1.Value <= DateValue("22/07") Then
MsgBox "cancer"
ElseIf Calendar1.Value >= DateValue("23/07") And Calendar1.Value <= DateValue("22/08") Then
MsgBox "leo"
ElseIf Calendar1.Value >= DateValue("23/08") And Calendar1.Value <= DateValue("22/09") Then
MsgBox "virgo"
ElseIf Calendar1.Value >= DateValue("23/09") And Calendar1.Value <= DateValue("22/10") Then
MsgBox "libra"
ElseIf Calendar1.Value >= DateValue("23/10") And Calendar1.Value <= DateValue("21/11") Then
MsgBox "escorpio"
ElseIf Calendar1.Value >= DateValue("22/11") And Calendar1.Value <= DateValue("21/12") Then
MsgBox "sagitario"
ElseIf Calendar1.Value >= DateValue("22/12") And Calendar1.Value <= DateValue("31/12") Then
MsgBox "capricornio"
ElseIf Calendar1.Value >= DateValue("01/01") And Calendar1.Value <= DateValue("19/01") Then
MsgBox "capricornio"
ElseIf Calendar1.Value >= DateValue("20/01") And Calendar1.Value <= DateValue("18/02") Then
MsgBox "acuario"
ElseIf Calendar1.Value >= DateValue("19/02") And Calendar1.Value <= DateValue("20/03") Then
MsgBox "piscis"
End If
End Function