Buon Giorno a Tutti ; mi chiamo Maurizio ; Pensavo Sinceramente di non Dovervi più
Disturbare con le mie Paturnie , ma credo proprio che non posso fare a meno di Voi .
Scherzi a parte : Ho un problema che vorrei riuscire a Risolvere , in quanto mi stà
Facendo Diventare matto ! .
Il problema e Questo : hanni fa , mi ero costruito un Calendario Perpetuo in VB6 ,
che tra le altre cose ; dava la Possibiità di Estrarre L'immagine Del proprio
Segno Zodiacale , Corrispondente ad una Determinata Data.
Ora All'apparenza sembrava funzionare bene ! Però Solo ora che ho voluto Ritrascrivere il
Tutto in Excel ; mi sono Accorto che fa Acqua da tutte le parti .
Il Discorso e in Sostanza questo : una volta Impostato in una Cella una Determinata data ;
che nel mio caso è la Cella ( E15 ) .
Vorrei che ad ogni Data impostata mi Venga Prelevata la Suddetta immagine che si Trova
all'interno della mia Cartella di Lavoro che di Chiama ( SegniZodiacali ) .
Ora sino a qui , nel Bene e nel male ci sono riuscito da me ! Pero' non capisco e non
riesco a venirne a capo , il Perche nel momento in qui , Se Digito la data ( 17/04 ) il
programma mi Risponde Esattamente ( Ariete ) .
Nello Stesso Modo se Digitassi il ( 31/19) mi da esattamente il Segno dello Scarpione
Ma se tento di Digitare Stessa maniera la data ( 06/10 ) Che nella Realta e una Bilancia
mi da il Segno dello Scorpione .
Mi sapreste dire il perchè di tutto questo ! in modo da riuscire a Risolvere il problema !
Come Sempre vi Invio i miei più sinceri e Cordiali Saluti e un Grazie di Tutto da A. Maurizio
Sub EstrazioneDelSegnoZoodiacale()
On Error Resume Next
Foglio1.LbSegniZoodiacali.AddItem "Ariete"
Foglio1.LbSegniZoodiacali.AddItem "Toro"
Foglio1.LbSegniZoodiacali.AddItem "Gemelli"
Foglio1.LbSegniZoodiacali.AddItem "Cancro"
Foglio1.LbSegniZoodiacali.AddItem "Leone"
Foglio1.LbSegniZoodiacali.AddItem "Vergine"
Foglio1.LbSegniZoodiacali.AddItem "Bilancia"
Foglio1.LbSegniZoodiacali.AddItem "Scorpione"
Foglio1.LbSegniZoodiacali.AddItem "Sagittario"
Foglio1.LbSegniZoodiacali.AddItem "Capricorno"
Foglio1.LbSegniZoodiacali.AddItem "Acquario"
Foglio1.LbSegniZoodiacali.AddItem "Pesci"
DataNascita = CDate(Range("E15").Value)
If ((Month(DataNascita) = 3) And (Day(DataNascita) >= "21/03")) Or _
((Month(DataNascita) = 4) And (Day(DataNascita) <= "20/04")) Then
intSegno = 1 ' Ariete
ElseIf ((Month(DataNascita) = 4) And (Day(DataNascita) >= "21/04")) Or _
((Month(DataNascita) = 5) And (Day(DataNascita) <= "20/05")) Then
intSegno = 2 ' Toro
ElseIf ((Month(DataNascita) = 5) And (Day(DataNascita) >= "21/05")) Or _
((Month(DataNascita) = 6) And (Day(DataNascita) <= "21/06")) Then
intSegno = 3 ' Gemelli
ElseIf ((Month(DataNascita) = 6) And (Day(DataNascita) >= "22/06")) Or _
((Month(DataNascita) = 7) And (Day(DataNascita) <= "22/07")) Then
intSegno = 4 ' Cancro
ElseIf ((Month(DataNascita) = 7) And (Day(DataNascita) >= "23/07")) Or _
((Month(DataNascita) = And (Day(DataNascita) <= "23/08")) Then
intSegno = 5 ' leone
ElseIf ((Month(DataNascita) = And (Day(DataNascita) >= "24/08")) Or _
((Month(DataNascita) = 9) And (Day(DataNascita) <= "22/09")) Then
intSegno = 6 ' Vergine
ElseIf ((Month(DataNascita) = 9) And (Day(DataNascita) >= "23/09")) Or _
((Month(DataNascita) = 10) And (Day(DataNascita) <= "22/10")) Then
intSegno = 7 ' Bilancia
ElseIf ((Month(DataNascita) = 10) And (Day(DataNascita) >= "23/10")) Or _
((Month(DataNascita) = 11) And (Day(DataNascita) <= "22/11")) Then
intSegno = 8 ' Scorpione
ElseIf ((Month(DataNascita) = 11) And (Day(DataNascita) >= "23/11")) Or _
((Month(DataNascita) = 12) And (Day(DataNascita) <= "21/12")) Then
intSegno = 9 ' Sagittario
ElseIf ((Month(DataNascita) = 12) And (Day(DataNascita) >= "22/12")) Or _
((Month(DataNascita) = 13) And (Day(DataNascita) <= "20/01")) Then
intSegno = 10 ' Capricorno
ElseIf ((Month(DataNascita) = 13) And (Day(DataNascita) >= "21/01")) Or _
((Month(DataNascita) = 14) And (Day(DataNascita) <= "19/02")) Then
intSegno = 11 ' Acquario
ElseIf ((Month(DataNascita) = 14) And (Day(DataNascita) >= "20/02")) Or _
((Month(DataNascita) = 15) And (Day(DataNascita) <= "20/03")) Then
intSegno = 12 ' Pesci
End If
Foglio1.LbSegniZoodiacali.ListIndex = intSegno - 1
strNomeFoto = Choose(intSegno, "Ariete", "Toro", "Gemelli", "Cancro", "Leone", "Vergine", "Bilancia", "Scorpione", "Sagittario", "Capricorno", "Acquario", "Pesci") & ".jpg"
Set Foglio1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\SegniZodiacali\" & strNomeFoto)
'Memo.Caption = LbSegniZoodiacali
EvidenziaMese
End Sub
(N.B) Queste sono le Reali Date che corrispondono ai segni Zoodiacali
Ariete = Dal 21/03 al 20/04 |
--------------------------------------
Toro = dal 21/04 al 20/05 |
--------------------------------------
Gemelli = dal 21/05 al 21/06 |
--------------------------------------
Cancro = dal 22/06 al 22/07 |
--------------------------------------
Leone = dal 23/07 al 23/08 |
--------------------------------------
Vergine = dal 24/08 al 22/09 |
--------------------------------------
Bilancia = dal 23/09 al 22/10 |
--------------------------------------
Scorpione = dal 23/10 al 22/11 |
--------------------------------------
Sagittario = dal 23/11 al 21/12 |
--------------------------------------
Capricorno = dal 22/12 al 20/01 |
--------------------------------------
Acquario = dal 21/01 al 19/02 |
--------------------------------------
Pesci = dal 20/02 al 20/03 |
--------------------------------------