Récupérer l'année de la date en cours [Résolu]
develomagaly
- Messages postés
- 46
- Date d'inscription
- mercredi 5 octobre 2005
- Dernière intervention
- 3 mai 2006
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
A voir également:
- Delphi date now
- Delphi date - Meilleures réponses
- Date delphi - Meilleures réponses
- Comment récuperer le mois dans une date?? ✓ - Forum - Visual Basic
- [Déplacé VB6 --> VBA] Récupération de la l'année de la date du jour en VBA ✓ - Forum - Visual Basic 6
- Récupération année d'une date ✓ - Forum - PHP
- Récupération de l'année dans une date - Forum - Visual Basic 6
- Champs de type date, recupére l'année ou le mois seulement - Forum - Visual Basic
4 réponses
Meilleure réponse
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
salut,
utilise decodedate()
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Nous sommes aujourd''hui le ' + IntToStr(Day) +
+ IntToStr(Month) + ' de l''année ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'Il est ' + IntToStr(Hour) + ' heures et '
+ IntToStr(Min) + ' minutes';
end;
bonne prog
utilise decodedate()
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Nous sommes aujourd''hui le ' + IntToStr(Day) +
+ IntToStr(Month) + ' de l''année ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'Il est ' + IntToStr(Hour) + ' heures et '
+ IntToStr(Min) + ' minutes';
end;
bonne prog
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
- Messages postés
- 4
- Date d'inscription
- lundi 13 mars 2006
- Dernière intervention
- 28 mars 2006
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
PS:
Pour Develomagaly :
Tu peux aussi récupérer le jour de la semaine et le mois (en lettres) :
procedure TForm1.MaProcedure(Const aDate: TDateTime; out unJour, unMois,
uneAnne: TLabel);
Var aJ, aM, aA : Word;
begin
DecodeDate(aDate,aA, aM, aJ );
unJour.Caption := UpperCase(LongDayNames[DayOfWeek(Now)])+' le '+IntToStr(aJ);
unMois.Caption := UpperCase(LongMonthNames[DayOfWeek(Now)]);
uneAnne.Caption:= IntToStr(aA);
end;
Utilisation :
Tu places trois label sur ta form que tu nommes lb_Jour, lb_Mois, lb_Annee:
MaProcedure(Now, lb_Jour, lb_Mois, lb_Annee);
@+
Cirec
Pour Develomagaly :
Tu peux aussi récupérer le jour de la semaine et le mois (en lettres) :
procedure TForm1.MaProcedure(Const aDate: TDateTime; out unJour, unMois,
uneAnne: TLabel);
Var aJ, aM, aA : Word;
begin
DecodeDate(aDate,aA, aM, aJ );
unJour.Caption := UpperCase(LongDayNames[DayOfWeek(Now)])+' le '+IntToStr(aJ);
unMois.Caption := UpperCase(LongMonthNames[DayOfWeek(Now)]);
uneAnne.Caption:= IntToStr(aA);
end;
Utilisation :
Tu places trois label sur ta form que tu nommes lb_Jour, lb_Mois, lb_Annee:
MaProcedure(Now, lb_Jour, lb_Mois, lb_Annee);
@+
Cirec
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.