Erreur sur VBScript pour calculer une date de naissance
Résolu
antoine9298
Messages postés
101
Date d'inscription
Statut
Membre
Dernière intervention
-
antoine9298 Messages postés 101 Date d'inscription Statut Membre Dernière intervention -
antoine9298 Messages postés 101 Date d'inscription Statut Membre Dernière intervention -
a partir de son age et du jour qu'il est
et j'ai toujours l'erreur Then attendu a la 7/8ème ligne (en fonction de si vous comptez le a la ligne au début ou pas) 10ème caractère (ET bien entendu il n'y a pas de 10ème caractère sur cette ligne :-/ ...)
voici le script:
Do
annee = inputbox("en quelle annee est tu ne(e)")
mois = inputbox("en quel mois est tu ne(e)")
If input mois >12 or <1 then
msgbox "retapez la reponse en nombre."
Loop
else
End If
age = Year(now) - annee
If
mois < Month(now)
Then
age2 = age - 1
'car si on est ne au debut ou a la fin de l'annee ca change...
x = "tu as donc" & age2 & " ans."
Elself
mois > Month(now) Then
x = "tu as donc" & age & " ans."
esle
end if
Jour = Inputbox(" et quel jour?")
If Jour < Day(now) then
Age2 = age - 1
Jour2 = Day(now) - Jour
x = "tu vas donc fete ton anniversaire dans " & Jour2 & " jours!tu vas avoir " & age & "ans!"
Elself Jour > Day2 then
Jour2 = Jour - Day(now)
x = " tu viens donc tout juste de feter ton anniversaire (il y a " & jour2 & " jours ! )"
Else
x = "Bon anniversaire ! Tu fete tes " & age & "ans!"
End If
MsgBox "" & x & "" & vbNewLine
Exit
Loop
exit
si quelqu'un peut m'expliquer
et j'ai toujours l'erreur Then attendu a la 7/8ème ligne (en fonction de si vous comptez le a la ligne au début ou pas) 10ème caractère (ET bien entendu il n'y a pas de 10ème caractère sur cette ligne :-/ ...)
voici le script:
Do
annee = inputbox("en quelle annee est tu ne(e)")
mois = inputbox("en quel mois est tu ne(e)")
If input mois >12 or <1 then
msgbox "retapez la reponse en nombre."
Loop
else
End If
age = Year(now) - annee
If
mois < Month(now)
Then
age2 = age - 1
'car si on est ne au debut ou a la fin de l'annee ca change...
x = "tu as donc" & age2 & " ans."
Elself
mois > Month(now) Then
x = "tu as donc" & age & " ans."
esle
end if
Jour = Inputbox(" et quel jour?")
If Jour < Day(now) then
Age2 = age - 1
Jour2 = Day(now) - Jour
x = "tu vas donc fete ton anniversaire dans " & Jour2 & " jours!tu vas avoir " & age & "ans!"
Elself Jour > Day2 then
Jour2 = Jour - Day(now)
x = " tu viens donc tout juste de feter ton anniversaire (il y a " & jour2 & " jours ! )"
Else
x = "Bon anniversaire ! Tu fete tes " & age & "ans!"
End If
MsgBox "" & x & "" & vbNewLine
Exit
Loop
exit
si quelqu'un peut m'expliquer
A voir également:
- Erreur sur VBScript pour calculer une date de naissance
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment calculer la moyenne sur excel - Guide
- Comment changer sa date de naissance sur snap - Forum Snapchat
- Je me suis trompée sur la date de naissance comment le débloquer - Forum Snapchat
- Comment changer sa date de naissance sur tiktok - Guide
3 réponses
Bonjour
Cette condition est incorrecte, il fallait écrire
De plus, je vois que tu n'imbrique pas correctement les structures : on trouve le Loop avant le End If... Il y a beaucoup de chose à revoir
If input mois >12 or <1 then
Cette condition est incorrecte, il fallait écrire
If input mois >12 or mois <1 then
De plus, je vois que tu n'imbrique pas correctement les structures : on trouve le Loop avant le End If... Il y a beaucoup de chose à revoir
If input mois >12 or mois <1 then
Je n'avais pas remarqué... que fait ce mot "input" ici ?
ET Quant au caractère 10 , ça veut simplement dire le 10e caractère de la ligne.
Je n'avais pas remarqué... que fait ce mot "input" ici ?
ET Quant au caractère 10 , ça veut simplement dire le 10e caractère de la ligne.
j'avait compris mais il n'y a pas de 10eme caractère sur cette ligne :-/
et quand au mot input j'aivait pensé si la reponse mois est...
tienen enlevant input le message d'erreur disparaît (ouf)...
et quand au mot input j'aivait pensé si la reponse mois est...
tienen enlevant input le message d'erreur disparaît (ouf)...
on dirait que les messages d'erreur que je reçoit ne comptent pas les lignes comme moi,le bloc note(en bidouillant dans affichage y'a une option qui affiche la ligne et le caractere.) ET vbsedit qui a le meme systeme,du coup les erreur sont plus dur a corriger...
je commence a plus trop savoir si je doit me fier aux lignes des message d'erreur...
je commence a plus trop savoir si je doit me fier aux lignes des message d'erreur...
je l'ai corrigé en suppriment le loop et en le remplacent par exit
maintenant le début donne ça:
annee = inputbox("en quelle annee est tu ne(e)")
mois = inputbox("en quel mois est tu ne(e)")
If input mois >12 or mois <1 then
msgbox "retapez la reponse en nombre."
exit
elself mois <13 and >0
else
End If
ET mon bug persiste ?! en m'indiquant un Then attendu ligne5(celle du exit) caractère 10? IL N'Y A PAS DE CARACTÈRE 10 SUR CETTE LIGNE! et si le vrai bug c'était cette fenêtre qui tourne en boucle?