Function Zodiaque(Jour As Date, Optional Symbole As Boolean) As String
' si le symbole(facultatif) est précisé la cible doit utiliser la police Windings
Dim Signes, bornes
Dim Idx As Integer
bornes = Array(0, 121, 220, 321, 421, 521, 622, 723, 823, 923, 1023, 1123, 1222)
signes = Array("Capricorne", "Verseau", "Poissons", "Bélier", "Taureau", "Gémeaux", "Cancer", "Lion", "Vierge", "Balance", "Scorpion", "Sagittaire", "Capricorne", "Verseau")
Idx = Application.Match(CInt(Format(Jour, "mdd")), bornes)
If symbole Then
Zodiaque = Mid("ghi_`abcdefgh", idx, 1) ' _=ascii 95 ; `= ascii 96
Else
Zodiaque = Signes(Idx - 1)
End If
End Function