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

Signaler
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
 alekD -
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
306
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
10 mai 2017
2
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

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

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

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
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
Cool ces tableaux :-D
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
26
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;