Recuperer le jour de la semaine format string (lundi,mardi, etc,...)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 393 fois - Téléchargée 29 fois

Contenu du snippet

Voici une ch'tite fonction pour récupérer le jour de la semaine :)

Source / Exemple :


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;

Conclusion :


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

A voir également

Ajouter un commentaire

Commentaires

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

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.