PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → 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
Iniciado por Patrick PELISSON, 19,ago. 2019 15:32 - 8 respuestas
Miembro registrado
108 mensajes
Publicado el 19,agosto 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
Miembro registrado
7 mensajes
Publicado el 19,agosto 2019 - 15:50
Salut,

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

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

Alexandre
Mensaje modificado, 19,agosto 2019 - 15:50
Miembro registrado
46 mensajes
Publicado el 19,agosto 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
Publicado el 19,agosto 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
Miembro registrado
108 mensajes
Publicado el 19,agosto 2019 - 16:28
Merci pour vos réponses.

--
Patrick PELISSON
Miembro registrado
1.640 mensajes
Publicado el 20,agosto 2019 - 09:49
Sinon, en une ligne tu peux faire :
nDate est un entier = DateVersChaîne(DateSys(),"AA")
Publicado el 21,agosto 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
Publicado el 21,agosto 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
Publicado el 21,agosto 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