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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 238 fois - Téléchargée 28 fois

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

Ajouter un commentaire

Commentaires

Hackdevil
Messages postés
28
Date d'inscription
dimanche 2 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2014

C'est un peu inutile mais bon lol
C'est marrant.
Par contre 360 jours dans l'année ça fausse un peu tout.
Dans l'affaire je me retrouve avec un moi de trop de vecu.
5/10
cs_VVV
Messages postés
40
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
15 juin 2009

Orthographe, svp... :'(

Merci à Warny et Jack pour ces infos.
Ca fait toujours du bien un eptit rappel !

V3
cs_lataupeben
Messages postés
232
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
24 janvier 2006

c bien ton truc ca rend moin vieux
Marvin77
Messages postés
25
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
3 février 2004

ouai je c mais j'avais rien piger a cette formule ....
et j'applique pas se que je comprend pas

et pour les 360 jours c parce que j'ai passer un bac de comptabiliter et que l'année comptable est de 360 jours (lol desoler)

merci des commentaire !
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63
Salut Marvin77
Tu t'es bien compliqué la vie pour pas grand chose :
Une fois que tu as la date de naissance sous le format
MaDate = "22/02/1948", tu n'as plus qu'à faire
MsgBox DateDiff("d", MaDate, Now)
et tu auras le nombre de jours entre ces deux dates
"d" pour Day
"y" Year
"m" Month
"h" Hour
"n" minute (et pas "m")
"s" second

Vala

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.