Newsgroup: it.comp.appl.access
Titolo: data nascita e segno zodiacale

Salve a tutti e buon anno.
campo data_nascita --- campo segno_zodiacale
Come faccio ad assegnare il relativo segno zodiacale all'immissione della
data di nascita
Grazie in anticipo

 ha scritto nel messaggio
news:hhWKb.26077$Jw2....@tornado.fastwebnet.it...

Fatti una Tabella in cui inserisci i 12 segni Zodiacali e le date Comprese,
oppure la data iniziale e il numero di gg successivi....!
Quando inserisci una data vai a cercare quale Record è all'interno
dell'intervallo
e prelevi il Campo SegnoZodiacale........!
@Alex.

 ha scritto nel messaggio
news:hhWKb.26077$Jw2....@tornado.fastwebnet.it...

In un modulo inserisci questa funzione
Function SegnoZodiacale(dataNascita)
anno = Year(dataNascita)
ariete1 = CVDate("21/3/" & anno)
ariete2 = CVDate("20/4/" & anno)
toro1 = CVDate("21/4/" & anno)
toro2 = CVDate("20/5/" & anno)
gemelli1 = CVDate("21/5/" & anno)
gemelli2 = CVDate("21/6/" & anno)
cancro1 = CVDate("22/6/" & anno)
cancro2 = CVDate("22/7/" & anno)
leone1 = CVDate("23/7/" & anno)
leone2 = CVDate("23/8/" & anno)
vergine1 = CVDate("24/8/" & anno)
vergine2 = CVDate("22/9/" & anno)
bilancia1 = CVDate("23/9/" & anno)
bilancia2 = CVDate("22/10/" & anno)
scorpione1 = CVDate("23/10/" & anno)
scorpione2 = CVDate("22/11/" & anno)
sagittario1 = CVDate("23/11/" & anno)
sagittario2 = CVDate("21/12/" & anno)
capricorno1 = CVDate("22/12/" & anno)
capricorno2 = CVDate("20/1/" & anno)
acquario1 = CVDate("21/1/" & anno)
acquario2 = CVDate("19/2/" & anno)
pesci1 = CVDate("20/2/" & anno)
pesci2 = CVDate("20/3/" & anno)
fineanno = CVDate("31/12/" & anno)
capodanno = CVDate("1/1/" & anno)
If dataNascita >= ariete1 And dataNascita <= ariete2 Then SegnoZodiacale =
"ariete": Exit Function
If dataNascita >= toro1 And dataNascita <= toro2 Then SegnoZodiacale =
"toro": Exit Function
If dataNascita >= gemelli1 And dataNascita <= gemelli2 Then SegnoZodiacale =
"gemelli": Exit Function
If dataNascita >= cancro1 And dataNascita <= cancro2 Then SegnoZodiacale =
"cancro": Exit Function
If dataNascita >= leone1 And dataNascita <= leone2 Then SegnoZodiacale =
"leone": Exit Function
If dataNascita >= vergine1 And dataNascita <= vergine2 Then SegnoZodiacale =
"vergine": Exit Function
If dataNascita >= bilancia1 And dataNascita <= bilancia2 Then SegnoZodiacale
= "bilancia": Exit Function
If dataNascita >= scorpione1 And dataNascita <= scorpione2 Then
SegnoZodiacale = "scorpione": Exit Function
If dataNascita >= sagittario1 And dataNascita <= sagittario2 Then
SegnoZodiacale = "sagittario": Exit Function
If dataNascita >= capricorno1 And dataNascita <= fineanno Then
SegnoZodiacale = "capricorno": Exit Function
If dataNascita >= capodanno And dataNascita <= capricorno2 Then
SegnoZodiacale = "capricorno": Exit Function
If dataNascita >= acquario1 And dataNascita <= acquario2 Then SegnoZodiacale
= "acquario": Exit Function
If dataNascita >= pesci1 And dataNascita <= pesci2 Then SegnoZodiacale =
"pesci": Exit Function
End Function
sulle query o sulle maschere associa, al campo o al controllo nel quale vuoi
far comparire il segno zodiacale, la formula =segnoZodiacale([TuaData]) dove
al posto di TuaData sostituirai il nome del campo che contiene la data di
nascita.
Ciao
Salvatore

 far comparire il segno zodiacale, la formula =segnoZodiacale([TuaData])
puoi spiegarmi meglio questa parte?
Ho 2 campi, datanascita e segnozodiacale,
quale dei 2 e come lo posso associare al modulo1?
Spero tu mi abbia capito.
Ciao e grazie di nuovo