dato un numero ricavare gioni,mesi e anni

[antalisin]

ciao! esiste gia una piccola funzioncina che dato un numero mi da il numero di anni,mesi e giorni che rappresenta?

il problema è che i mesi non hanno tutti 30 giorni!

secondo voi è possibile....o no?

devo accontentarmi sono di un DATEDIFF?

se avete qualche dritta vi leggo volentieri!

ciao



lisì

[vonkranz]

Prova con
cdate(37405)

....e indovina che data ti da'...

Per il passaggio contrario:

dim dt as date
dt="29/05/2002"
debug.print clng(dt)

Ciao.

[darkblOOd]

@ vonkranz:

Le date in vb6 vengono rappresentate come double, non come long.

[vonkranz]

In effetti mi e' sfuggito il clng voleva essere un cDbl..

....cmq VB bypassa tranquillamente il problema (almeno nel caso di cui sopra non genera errori).

Tra le altre cose non sono neanche sicuro che il quesito di antalisin fosse in questi termini

[antalisin]

Originariamente inviato da vonkranz
In effetti mi e' sfuggito il clng voleva essere un cDbl..

....cmq VB bypassa tranquillamente il problema (almeno nel caso di cui sopra non genera errori).

Tra le altre cose non sono neanche sicuro che il quesito di antalisin fosse in questi termini

grazie giovani!

ma io pensavo...a questo
se ho un numero 40...dovrebbe dirmi

0 anni
1 mese (gennaio ne ha 31)
9 giorni

[darkblOOd]

aaaaaaaaaaaaaah, tipo 366 ti deve dire 1 anno 0 mesi (oppure 12? o 13? ) e 1 giorno?

BOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOH!

:gren:

[steno12]

Dati insufficienti.......

fatti la domanda a te stesso, se uno ti dice 40, tu cosa gli rispondi?
0 anni
1 mese (gennaio ne ha 31)
9 giorni
ERRATO perchè chi ti ha posto la domanda intendeva febbraio
quindi i dati da dare al pc in questo caso sono 2(giorni e mese)
Se uno ti dice 40 a partenza da gennaio
0 anni
1 mese (gennaio ne ha 31)
9 giorni
GIUSTO
------------------------------
Su questo algoritmo puoi fare un programmino, dato un numero ottenere
anni, mesi e giorni
a patto di fornire al pc gli input su cui farlo lavorare

dim numero,anno$(3000),mese$(12),esem$(12)

an$ = Year(Date)
bisestile$ = "29/02/" + an$

For i = 1998 To 2099
anno$(i) = i
Next i

esem$(1) = 31
esem$(2) = 28
If Format(bise$) = True Then esem$(2) = 29
esem$(3) = 31
esem$(4) = 30
esem$(5) = 31
esem$(6) = 30
esem$(7) = 31
esem$(8) = 31
esem$(9) = 30
esem$(10) = 31
esem$(11) = 30
esem$(12) = 31

mese$(1) = "Gennaio"
mese$(2) = "Febbraio"
mese$(3) = "Marzo"
mese$(4) = "Aprile"
mese$(5) = "Maggio"
mese$(6) = "Giugno"
mese$(7) = "Luglio"
mese$(8) = "Agosto"
mese$(9) = "Settembre"
mese$(10) = "Ottobre"
mese$(11) = "Novembre"
mese$(12) = "Dicembre"

ora con un ciclo for ti puoi divertire a calcolare il valore di numero
a partenza del 1998

buon lavoro





link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[antalisin]

ho barato...
ho fatto la media dei giorni dei mesi=30,417
e poi divido il totale dei giorni per 365 e trovo gli anni
etc...

diaciamo che era solo una cosa approssimativa...percui ho potuto barare un po!

ok non è molto carino...ma un po funziona!!


grazie a tutti!!
ciao

lisì