Date en lettre

Signaler
Messages postés
1
Date d'inscription
lundi 16 juin 2014
Statut
Membre
Dernière intervention
16 juin 2014
-
Messages postés
103
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
9 avril 2020
-
salut ...
comment convertir une date jj/mm/aaaa en lettre
merci

3 réponses

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
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.
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
peut-être faut-il prendre StrToDateTime
et modifier le paramètre ?
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
Messages postés
103
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
9 avril 2020
2
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;