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

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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

Signaler
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 24 -
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;
Signaler
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
Signaler
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
Signaler
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
Signaler
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.
Afficher les 7 commentaires
S'inscrire maintenant

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.

Du même auteur (fabiin)