PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Comment récupérer les deux dernier chiffre de l'année dans un entier
Comment récupérer les deux dernier chiffre de l'année dans un entier
Débuté par Patrick PELISSON, 19 aoû. 2019 15:32 - 8 réponses
Membre enregistré
98 messages
Popularité : +2 (2 votes)
Posté le 19 août 2019 - 15:32
Bonjour,

Je souhaite récupérer les deux dernier chiffre d'une année dans un entier.
En prenant par exemple la date système, voici mon code pour récupérer les deux derniers chiffre de l'année mais je souhaite les récupérer dans un entier et non dans une date...

dDATE_STAGE est une Date=DateSys()
nANNEEREF est une Date=Droite(dDATE_STAGE..Année,2)

Je boucle là dessus depuis un moment ;( et d'avance merci pour votre aide.

--
Patrick PELISSON
Membre enregistré
7 messages
Popularité : +1 (1 vote)
Posté le 19 août 2019 - 15:50
Salut,

dDate est une Date = DateSys()
iAnnee est un entier

iAnnee = Val(DateVersChaîne(dDate,"AA"))

Alexandre
Message modifié, 19 août 2019 - 15:50
Membre enregistré
46 messages
Popularité : -1 (9 votes)
Posté le 19 août 2019 - 15:55
DateSys(), on l'affiche comme ceci : 18/08/2019
Mais, DateSys() renvoie la valeur comme ceci : 20190818
Je vous laisse le soin d'extraire les 2 chiffres de l'année soit 19
Posté le 19 août 2019 - 15:57
Bonjour Patrick,

dDATE_STAGE est une Date = DateSys()
d est une chaîne = DateVersChaîne(dDATE_STAGE)
n est un entier = Val(Droite(d,2))
Trace(n)

Bon dev

Rastam
Membre enregistré
98 messages
Popularité : +2 (2 votes)
Posté le 19 août 2019 - 16:28
Merci pour vos réponses.

--
Patrick PELISSON
Membre enregistré
1 623 messages
Popularité : +100 (114 votes)
Posté le 20 août 2019 - 09:49
Sinon, en une ligne tu peux faire :
nDate est un entier = DateVersChaîne(DateSys(),"AA")
Posté le 21 août 2019 - 11:37
Salut
Passer par une variable date permet aussi de récupérer uniquement son année
Et donc n'extraire que ce que l'on veut
dDate est une Date = DateSys()
iAnnée est un entier = dDate..Année[[3 À 4]]

mais la solution DateVersChaine est la mieux \ plus simple
Posté le 21 août 2019 - 11:50
Bonjour,

n est un entier = DateSys[[À 2]]
Info(n)

Bien à vous,
Fabrice De Weerd
www.fawax.com/dev

Le 19-08-19 à 13:32, Patrick PELISSON a écrit :
Bonjour,

Je souhaite récupérer les deux dernier chiffre d'une année dans un entier.
En prenant par exemple la date système, voici mon code pour récupérer
les deux derniers chiffre de l'année mais je souhaite les récupérer dans
un entier et non dans une date...

dDATE_STAGE est une Date=DateSys()
nANNEEREF est une Date=Droite(dDATE_STAGE..Année,2)

Je boucle là dessus depuis un moment ;( et d'avance merci pour votre aide.

--
Patrick PELISSON
Posté le 21 août 2019 - 11:52
Version corrigée...

n est un entier = DateSys[[3 À 4]]
Info(n)

Bien à vous,
Fabrice De Weerd
www.fawax.com/dev

Le 19-08-19 à 13:32, Patrick PELISSON a écrit :
Bonjour,

Je souhaite récupérer les deux dernier chiffre d'une année dans un entier.
En prenant par exemple la date système, voici mon code pour récupérer
les deux derniers chiffre de l'année mais je souhaite les récupérer dans
un entier et non dans une date...

dDATE_STAGE est une Date=DateSys()
nANNEEREF est une Date=Droite(dDATE_STAGE..Année,2)

Je boucle là dessus depuis un moment ;( et d'avance merci pour votre aide.

--
Patrick PELISSON