PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Une histoire de majusule
Une histoire de majusule
Started by paul.gera, Mar., 21 2006 3:40 PM - 13 replies
Posted on March, 21 2006 - 3:40 PM
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.
Posted on March, 21 2006 - 4:18 PM
Bonjour,
Après quelques microheures de recherche dans l'aide:
minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))

Frédéric.
Posted on March, 21 2006 - 4:18 PM
Normalement ca devrait fonctionner :

Minuscule(DateVersChaîne(DateSys(), "JJJJ JJ MMMM AAAA"))
Posted on March, 21 2006 - 4:19 PM
Bonjour,

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

Cordialement,

C.AUBRY
Posted on March, 21 2006 - 4:19 PM
Essaie avec la fonction :

Minuscule (DateVersChaine(DateSys(), "JJJJ JJ MMMM AAAA")
Posted on March, 21 2006 - 4:19 PM
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
Posted on March, 21 2006 - 4:19 PM
Salut, voilà le code qu'il faut:

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

Bon dev, Samifred(CH)
Posted on March, 21 2006 - 4:20 PM
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
Posted on March, 21 2006 - 4:20 PM
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.
Posted on March, 21 2006 - 4:20 PM
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
Posted on March, 21 2006 - 4:34 PM
Essaies le fonction Minuscule

Minuscule(dateverschaine(Madate;"JJJJ MM AAAA"))
Posted on March, 21 2006 - 4:35 PM
Merci à tous, c'est résolu !
Posted on March, 21 2006 - 4:36 PM
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
Posted on March, 21 2006 - 4:36 PM
Hello,

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

BonDev, Phil