Donne le nombre de jours que vous vivez et votre âge exacte

Commenter

Contenu du snippet

MAIS JE SUIS PARTOUT

celui la vous permait de connaitre le nombre de jours que vous etes sur la terre

et il vous donne votre age en année , mois et jours !

Source / Exemple : 


Option Explicit

Dim jour,mois,annee,today,anneejour,moisjour,jourjour,reste1,reste2,total

'demande à l'utilisateur les renseignement neccesaire à la bonne apllication du script
Do
jour=inputbox ("votre jour de naissance"&vbcrlf&vbcrlf&"allant de 1 a 31","jour")
loop until jour<>""
Do
mois=inputbox ("votre mois de naissance"&vbcrlf&vbcrlf&"allant de 1 a 12","mois")
loop until mois<>""
Do
annee=inputbox ("votre année de naissance"&vbcrlf&vbcrlf&"en 4 chiffre , exemple 1987","année")
loop until annee<>""

'today prend la valeur de la date d'aujourd'hui
today=date()

'transforme , par la soustration de la date de naissance à la date d'aujourd'hui , le nombre de jours total de vie
anneejour=(year(today)-(annee-1))*360
moisjour=(month(today)-(mois-1))*30
jourjour=(30-jour)

total=anneejour+moisjour+jourjour

msgbox total&" jour de vie",,"nombre de jours de vies"

'transforme le nombres de jours de vie en annee , mois et jours
reste1=total mod 360
annee=((total-reste1)/360)-1
reste2=reste1 mod 30
mois=(reste1-reste2)/30
jour=reste2

if total>360000 then 
msgbox "WHAOUUUU , plus de cent ans et vous utilisé un ordinateur , chapeau ! "
msgbox "vous avez vécu "&annee&" années , "&mois&" mois et "&jour&" jours",,"conclusion"
end if

if total<0 then
msgbox "olala ,même pas né et déjà mordu de PC ! ! !"
msgbox "vous allez naitre dans "&(annee*-1)&" années , "&(mois*-1)&" mois et "&(jour*-1)&" jours",,"conclusion"
end if

if total>0 and total<360000 then
msgbox "vous avez vécu "&annee&" années , "&mois&" mois et "&jour&" jours",,"conclusion"
end if

msgbox "MaRvIn CoRpOrAtIoN",vbInformation,"SiGnAtUrE"

A voir également

Du même auteur (Marvin77)