Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 399 fois - Téléchargée 28 fois
//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;
Merci pour tes infos sur les tableaux ke je ne connaissais pas ;)
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.
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.