Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Valutazione Su Due Date per il Calendario Perpetuo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Valutazione Su Due Date per il Calendario Perpetuo

Postdi A.Maurizio » 22/11/13 08:49

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) = 8) And (Day(DataNascita) <= "23/08")) Then
intSegno = 5 ' leone
ElseIf ((Month(DataNascita) = 8) 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 |
--------------------------------------
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39

Sponsor
 

Re: Valutazione Su Due Date per il Calendario Perpetuo

Postdi wallace&gromit » 22/11/13 09:21

A.Maurizio ha scritto:se Digitassi il ( 31/19) mi da esattamente il Segno dello Scarpione

è vero che secondo gli astronomi ai segni canonici bisognerebbe aggiungere l'ofiuco e di tanto in tanto anche la balena, ma di un 19° mese con un segno che deve essere il contrario dei pesci (quelli sono in carpione) non ero al corrente :lol: :lol: :lol:

comunque l'inghippo è qui
A.Maurizio ha scritto: (Day(DataNascita) >= "21/03"))

perchè scrivi il valore del giorno tra virgolette, rendendolo un testo, e aggiungi il mese che invece risolvi con la prima condizione?
prova a scrivere semlicemente il numero (da ripetere per tutta la serie)
Codice: Seleziona tutto
(Day(DataNascita) >= 21))
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21

Re: Valutazione Su Due Date per il Calendario Perpetuo

Postdi Anthony47 » 23/11/13 17:38

Pensavo Sinceramente di non Dovervi più Disturbare con le mie Paturnie , ma credo proprio che non posso fare a meno di Voi
Bene, ti abbiamo contagiato...

Nello Stesso Modo se Digitassi il ( 31/19) mi da esattamente il Segno dello Scarpione
Ma questo non e' lo Scorfano?

Infine, un po' piu' seriosamente: e' risolto col suggerimento di w&g?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Valutazione Su Due Date per il Calendario Perpetuo

Postdi A.Maurizio » 27/11/13 18:19

Grazie Ragazzi ! Come Sempre non ho Parole ; siete Stupendi e anche molto Spiritosi , Bravi Continuate Cosi ; e Grazie ancora di tutto , Sinceri saluti da A. Maurizio
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39


Torna a Applicazioni Office Windows


Topic correlati a "Valutazione Su Due Date per il Calendario Perpetuo":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti