Ricavare il segno zodiacale in base ad una data

[M@sE]

Ciao, esiste pappa pronta per risalire al segno zodiacale in base ad una data?

La variabile data è così:

data: 17-05-1975

Ho fatto alcune ricerche ma nn ho trovato nulla sul forum..
Grazie

[diegoctn]

Ma fai un semplice select case........

[M@sE]

Provo così.. vediamo se ottengo il risultato:

lo posto perchè può servire!!

Dim gg, mm, segno
gg = Day(datadinascita)
mm = Month(datadinascita)

Select Case mm
Case 1 : segno = "CAPRICORNO" : If gg > 20 Then segno = "ACQUARIO"
Case 2 : segno = "ACQUARIO" : If gg > 19 Then segno = "PESCI"
Case 3 : segno = "PESCI": If gg > 20 Then segno = "ARIETE"
Case 4 : segno = "ARIETE" : If gg > 20 Then segno = "TORO"
Case 5 : segno = "TORO" : If gg > 20 Then segno = "GEMELLI"
Case 6 : segno = "GEMELLI": If gg > 21 Then segno = "CANCRO"
Case 7 : segno = "CANCRO" : If gg > 22 Then segno = "LEONE"
Case 8 : segno = "LEONE": If gg > 22 Then segno = "VERGINE"
Case 9 : segno = "VERGINE": If gg > 23 Then segno = "BILANCIA"
Case 10 : segno = "BILANCIA" : If gg > 22 Then segno = "SCORPIONE"
Case 11 : segno = "SCORPIONE": If gg > 22 Then segno = "SAGITARIO"
Case 12 : segno = "SAGITARIO": If gg > 21 Then segno = "CAPRICORNO"
End Select