DONNE LE NOMBRE DE JOURS QUE VOUS VIVEZ ET VOTRE ÂGE EXACTE

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"