Recuperer un Mois a partir d'une Date. [Résolu]
cs_abdousoft
- Messages postés
- 109
- Date d'inscription
- mardi 3 août 2004
- Statut
- Membre
- Dernière intervention
- 5 novembre 2007
- Messages postés
- 40
- Date d'inscription
- vendredi 2 mai 2003
- Statut
- Membre
- Dernière intervention
- 9 décembre 2009
A voir également:
- Formatdatetime delphi
- Delphi date now - Meilleures réponses
- Delphi formatdatetime - Meilleures réponses
- Java : Récupérer le numéro du mois à partir de son nom - CodeS SourceS - Guide
- Delphi / Pascal : Récupérer le numéro du mois à partir de son nom - Code - Guide
- Comment récuperer les mois entre deux dates ✓ - Forum - PHP
- Récupérer le samedi/le jeudi d'une semaine à partir d'une date ✓ - Forum - VB.NET
- Comment récuperer le mois dans une date?? ✓ - Forum - Visual Basic
7 réponses
Meilleure réponse
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Statut
- Membre
- Dernière intervention
- 6 avril 2009
@ pers, bonne idée, on sait aussi décoder l'année et le jour ?
ou encore :
procedure TFtestdate.FormCreate(Sender: TObject);
var
s,s2,s3,s4,s5: string;
begin
s := datetostr(date);
s2:= FormatDateTime('dddd',now);
s3:= FormatDateTime('dd',now);
s4:= FormatDateTime('mmmm',now);
s5:= FormatDateTime('yyyy',now);
Pl1.Caption:= s;
Pl2.Caption:= s2 +' ' + s3+' '+s4 + ' '+ s5;
end;
[mailto: mailto:]
ou encore :
procedure TFtestdate.FormCreate(Sender: TObject);
var
s,s2,s3,s4,s5: string;
begin
s := datetostr(date);
s2:= FormatDateTime('dddd',now);
s3:= FormatDateTime('dd',now);
s4:= FormatDateTime('mmmm',now);
s5:= FormatDateTime('yyyy',now);
Pl1.Caption:= s;
Pl2.Caption:= s2 +' ' + s3+' '+s4 + ' '+ s5;
end;
[mailto: mailto:]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
195 internautes nous ont dit merci ce mois-ci
- Messages postés
- 900
- Date d'inscription
- vendredi 3 novembre 2000
- Statut
- Membre
- Dernière intervention
- 30 juillet 2009
salut,
t'as deux approches pour extraire le num du mois:
copy+strtoint OU strtodate(avec format setting)+monthof
pour avoir le nomk du mois:
utiliseun tableau de string avec le nom des mois.
si ton format est fix, je te recommande copy.
bon code,
Loda
Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.
t'as deux approches pour extraire le num du mois:
copy+strtoint OU strtodate(avec format setting)+monthof
pour avoir le nomk du mois:
utiliseun tableau de string avec le nom des mois.
si ton format est fix, je te recommande copy.
bon code,
Loda
Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Statut
- Membre
- Dernière intervention
- 6 avril 2009
Bonjour à toutes et à tous,
@ abdousoft, voici un exemple que tu modifies à ta guise.
procedure TFtestdate.FormCreate(Sender: TObject);
var
s: string;
s2: string;
begin
s := datetostr(date);
s2:= FormatDateTime('mmmm',now);
Pdate1.Caption:= s;
Pdate2.Caption:= 'C''est un '+ s2;
end;
N. B : dddd jour, mmmm mois, yyyy = année
@+,
Cincap
[mailto: mailto:]
@ abdousoft, voici un exemple que tu modifies à ta guise.
procedure TFtestdate.FormCreate(Sender: TObject);
var
s: string;
s2: string;
begin
s := datetostr(date);
s2:= FormatDateTime('mmmm',now);
Pdate1.Caption:= s;
Pdate2.Caption:= 'C''est un '+ s2;
end;
N. B : dddd jour, mmmm mois, yyyy = année
@+,
Cincap
[mailto: mailto:]
- Messages postés
- 109
- Date d'inscription
- mardi 3 août 2004
- Statut
- Membre
- Dernière intervention
- 5 novembre 2007