PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Une histoire de majusule
Une histoire de majusule
Iniciado por paul.gera, 21,mar. 2006 15:40 - 13 respuestas
Publicado el 21,marzo 2006 - 15:40
Bonjour,

Je vous adresse cette demande car un collègue ne veut plus que la date
affichée avec le code suivant (voir ci-dessous) soit écrit comme "Mardi 21
Mars 2006"... mais plutot "mardi 21 mars 2006".

Voici le code : DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA")

Alors, comment faire ca ?

Merci.
Publicado el 21,marzo 2006 - 16:18
Bonjour,
Après quelques microheures de recherche dans l'aide:
minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))

Frédéric.
Publicado el 21,marzo 2006 - 16:18
Normalement ca devrait fonctionner :

Minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))
Publicado el 21,marzo 2006 - 16:19
Bonjour,

minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))) tout simplement....

Cordialement,

C.AUBRY
Publicado el 21,marzo 2006 - 16:19
Essaie avec la fonction :

Minuscule (DateVersChaine(DateSys(), "JJJJ JJ MMMM AAAA")
Publicado el 21,marzo 2006 - 16:19
Bonjour,

Il suffit de rajouter la fonction "minuscule" qui met toutes les lettres en minuscules!!
Dans votre exemple, cela devient Minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))

En espérant vous avoir aidé
Florence
Publicado el 21,marzo 2006 - 16:19
Salut, voilà le code qu'il faut:

LIB_Libellé1=Minuscule(DateVersChaîne(SAI_Saisie1,"jjjj jj.mm.aaaa"))

Bon dev, Samifred(CH)
Publicado el 21,marzo 2006 - 16:20
Bonjour,

Je vous adresse cette demande car un collègue ne veut plus que la date
affichée avec le code suivant (voir ci-dessous) soit écrit comme "Mardi 21
Mars 2006"... mais plutot "mardi 21 mars 2006".

Voici le code : DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA")

Alors, comment faire ca ?


Alors la c'est vachement compliqué, va falloir passer par les API, puis ecrire un fichier HF et le relire par une requête et si tout va bien ca marche...


Non, je plaisante bien sur (en espérant que ca passe quand mêem)


Minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA")) devrait faire ca tres bien

car contrairement a ce qu'on pourrait penser DateVersChaîne(DateSys(), "jjjj jj mmmm aaaa") ne donne pas un résultat en minuscule, peut-être une petite suggestion a PC-SOFT

A+
--
Francis MOREL
Publicado el 21,marzo 2006 - 16:20
Bonjour,

essaye de faire comme ca, ca devrait marcher :

Minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))

En esperant t'avoir aider , bonne continuation et bon dev.

Chris Letellier.
Publicado el 21,marzo 2006 - 16:20
Selon Gauche(OldDate,1)
--Cas "L": NewDate=Remplace(OldDate,"L","l")
--Cas "M": NewDate=Remplace(OldDate,"M","m")
--Cas "J": NewDate=Remplace(OldDate,"J","j")
--Cas "V": NewDate=Remplace(OldDate,"V","v")
--Cas "S": NewDate=Remplace(OldDate,"S","s")
--Cas "D": NewDate=Remplace(OldDate,"D","d")
Fin
Publicado el 21,marzo 2006 - 16:34
Essaies le fonction Minuscule

Minuscule(dateverschaine(Madate;"JJJJ MM AAAA"))
Publicado el 21,marzo 2006 - 16:35
Merci à tous, c'est résolu !
Publicado el 21,marzo 2006 - 16:36
Le plus simple est de surcharger la fonction.

Par exemple, pour surcharger la fonction Trace du W-Langage, il est possible d'utiliser le code suivant :

PROCEDURE Trace(Information1)
Message("Lancement d'une trace")
WL.Trace(Information1)

----------------------------------

FONCTION DateVersChaine(chDate,format)
Selon format
CAS "jjj JJ mmmm AAAA"
Renvoyer Minuscule(WL.DateVersChaine(chDate,""JJJJ JJ MMMM AAAA")
Autre CAS
Renvoyer WL.DateVersChaine(chDate,format)
FIN
Publicado el 21,marzo 2006 - 16:36
Hello,

Ben : minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))

BonDev, Phil