1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Récuperer le mois de l'année format string (janvier,février,...)

Récuperer le mois de l'année format string (janvier,février,...)

0/5 (3 avis)

Snippet vu 6 757 fois - Téléchargée 30 fois

Commenter

Contenu du snippet

Voici une ch'tite fonction pour récupérer le mois de l'année :)

IMPORTANT:
Mettre DateUtils dans uses

Source / Exemple : 


//Mettre DateUtils dans uses

function Mois(LaDate:TDateTime):string;
begin

case MonthOf(LaDate) of
 1: Result:= 'janvier';
 2: Result:= 'février';
 3: Result:= 'mars';
 4: Result:= 'avril';
 5: Result:= 'mai';
 6: Result:= 'juin';
 7: Result:= 'juillet';
 8: Result:= 'aout';
 9: Result:= 'septembre';
 10: Result:= 'octobre';
 11: Result:= 'novembre';
 12: Result:= 'décembre';
end;

end;

Conclusion :


Exemple d'utilisation:
Edit1.Text := Mois(Date);

A voir également

Ajouter un commentaire Commentaires
Signaler

tree bien et bonne courage
Signaler
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
 6
elle est déclaré dans l'unit DateUtils ! :)
Merci pour tes infos sur les tableaux ke je ne connaissais pas ;)
Signaler
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 31
Merci, je ne connaissais pas la fonction MonthOf. Mais, au fait, dans quelle unité est-elle déclarée ? (je ne l'ai pas trouvée).
Au lieu d'utiliser une structure Case, tu peux utiliser les tableaux de mois ainsi définis dans l'unité SysUtils :
ShortMonthNames: array[1..12] of string;
LongMonthNames: array[1..12] of string;
ShortDayNames: array[1..7] of string;
LongDayNames: array[1..7] of string;
Qui a le mérite de s'adapter à la langue utilisée sur le poste de l'utilisateur.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fabiin)