Function SigneZodiacal(N)
' Renvoie la lettre du signe zodiacal de la date N. La lettre doit être mise en police Wingdings
Dim Début, Fin, Lettre
' Début de la période du signe, Fin de la période, Lettre correspondant
' au signe zodiacal en police Wingdings
Début = Array(80, 111, 142, 173, 204, 235, 266, 296, 327, 356, 21, 50)
Fin = Array(110, 141, 172, 203, 234, 265, 295, 326, 355, 20, 49, 79)
Lettre = Array("^", "_", "`", "a", "b", "c", "d", "e", "f", "g", "h", "i")
N = Date - DateSerial(Year(Date), 1, 0)
For t = 0 To 11
If N >= Début(t) And N < Fin(t) Then SigneZodiacal = Lettre(t)
Next t
End Function