Recuperer un Mois a partir d'une Date. [Résolu]
cs_abdousoft
- Messages postés
- 109
- Date d'inscription
- mardi 3 août 2004
- Dernière intervention
- 5 novembre 2007
- Messages postés
- 40
- Date d'inscription
- vendredi 2 mai 2003
- Dernière intervention
- 9 décembre 2009
A voir également:
- Delphi decode date
- Delphi date now - Meilleures réponses
- Delphi monthof - Meilleures réponses
- Delphi / Pascal : Date et heure de derniere modification d'un fichier - CodeS SourceS - Guide
- Delphi / Pascal : Date en arabe - CodeS SourceS - Guide
- Delphi / Pascal : Date_heure - CodeS SourceS - Guide
- Delphi / Pascal : Date & Heure - Sources , plus de 50 000 CodeS-SourceS. - Guide
- Delphi / Pascal : Date & Heure - Snippets , plus de 50 000 CodeS-SourceS. - Guide
8 réponses
Meilleure réponse
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- 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
a aidé 105 internautes ce mois-ci
- Messages postés
- 900
- Date d'inscription
- vendredi 3 novembre 2000
- 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
- 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
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
Salut,
Voir aussi le tut' de Japee pour réviser tout ça:
http://www.delphifr.com/codes/FORMATDATETIME-AFFICHAGE-DATE-HEURE-DANS-CHAINE_25377.aspx
Voir aussi le tut' de Japee pour réviser tout ça:
http://www.delphifr.com/codes/FORMATDATETIME-AFFICHAGE-DATE-HEURE-DANS-CHAINE_25377.aspx
- Messages postés
- 109
- Date d'inscription
- mardi 3 août 2004
- Dernière intervention
- 5 novembre 2007
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.