function Jour(LaDate:TDateTime):string; begin case DayofWeek(LaDate) of 1: Result:= 'Lundi'; 2: Result:= 'Mardi'; 3: Result:= 'Mercredi'; 4: Result:= 'Jeudi'; 5: Result:= 'Vendredi'; 6: Result:= 'Samedi'; 7: Result:= 'Dimanche'; end; end;
Autre proposition :Un tableau de jours est mis à disposition de Delphi et récupéré dans les paramètres du système sur lequel le programme s'éxécute.LongDayNames: array[1..7] of string;Utilisation :function Jour(LaDate:TDateTime):string;begin Result := LongDayNames[DayOfWeek(LaDate)];end; A noter qu'il existe aussi un tableau des noms des jours souys la forme abrégée :ShortDayNames: array[1..7] of string;
Cool ces tableaux :-D
Autre proposition :Utilisation :function Jour(LaDate:TDateTime):string;begin Result := FormatDateTime('dddd',StrToDate(LaDate));end; Consultez l'aide pour plus d'infos sur l'utilisation de la fonction FormatDateTime.Bonne prog
Bonjour, Je suis à la recherche d'une fonction qui recoit le numéro d'une semaine et renvoit le date du début et de la fin de la semaine. Auriez-vous une astuce? Merci d'avance
c'bon, j'ai trouvé ma réponse, vive DateUtils.
Super !!!!Merci beaucoup ^^Ca m'a sauver la vie :DPetite astuce : pour les semaines françaises décaler les jours d'un cran vers le bas ^^Merci encore :D
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 591 membres 33 nouveaux aujourd'hui 16 150 membres club