RECUPERER LE JOUR DE LA SEMAINE FORMAT STRING (LUNDI,MARDI, ETC,...)

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 24 févr. 2002 à 14:03
 alekD - 21 mars 2017 à 11:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11782-recuperer-le-jour-de-la-semaine-format-string-lundi-mardi-etc

1 = Dimanche
7 = Samedi
ndsaerith Messages postés 304 Date d'inscription vendredi 16 janvier 2004 Statut Membre Dernière intervention 10 mai 2017 2
8 mars 2007 à 13:10
Super !!!!
Merci beaucoup ^^
Ca m'a sauver la vie :D
Petite astuce : pour les semaines françaises décaler les jours d'un cran vers le bas ^^

Merci encore :D
davibz Messages postés 4 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 21 octobre 2006
16 oct. 2006 à 22:36
c'bon, j'ai trouvé ma réponse, vive DateUtils.
davibz Messages postés 4 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 21 octobre 2006
16 oct. 2006 à 21:52
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
cs_zmat Messages postés 13 Date d'inscription lundi 26 novembre 2001 Statut Membre Dernière intervention 29 octobre 2002
29 oct. 2002 à 22:48
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
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 6
24 févr. 2002 à 19:09
Cool ces tableaux :-D
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
24 févr. 2002 à 14:03
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;
Rejoignez-nous