Date en lettre

Messages postés
1
Date d'inscription
lundi 16 juin 2014
Statut
Membre
Dernière intervention
16 juin 2014
- - Dernière réponse : pierrotk10d
Messages postés
105
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
- 19 juin 2014 à 21:34
salut ...
comment convertir une date jj/mm/aaaa en lettre
merci
Afficher la suite 

3 réponses

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
0
Merci
Bonjour,

en utilisant les fonctions StrToDate et FormatDateTime;
Par exemple comme ceci :

function ShortToLongDateFormat(ADate: string): string;
begin
  Result := FormatDateTime('dddddd', StrToDate(ADate));
end;


La validité de la chaîne entrée en paramètre n'est pas vérifiée.
Commenter la réponse de korgis
Messages postés
4716
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
9
0
Merci
peut-être faut-il prendre StrToDateTime
et modifier le paramètre ?
korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15 -
Salut cantador,

"peut-être faut-il prendre StrToDateTime et modifier le paramètre ?"
Je ne comprend pas bien ton raisonnement : StrToDateTime transforme une chaîne de caractères en TDateTime...

Or notre ami inscrit le 16 juin pour poser sa question (et qui a l'air de peu se préoccuper de nos réponses, la mienne me semblant par ailleurs tout à fait fonctionnelle) veut obtenir une chaîne "en lettres", pas un TDateTime.

Par ailleurs, cela intéresse-t-il encore quelqu'un ici ???

;-P
Commenter la réponse de cs_cantador
Messages postés
105
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
2
0
Merci
Bonjour,
Mais si Korgis, il y en qui suive.
On peut aussi passer directement la date à la fonction.
Cordialement

Function RtnDateDuJour(aDate: TDateTime): string;
Begin
Result := 'Nous sommes aujourd''hui le : ' + FormatDateTime('dddddd', aDate);
end;
Commenter la réponse de pierrotk10d