Récupérer l'année de la date en cours [Résolu]

Messages postés
46
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
3 mai 2006
- - Dernière réponse : Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
- 28 mars 2006 à 15:36
bonjour,

je voudrait recupere l'année de la date en cours ( par rapport a la date systeme ou calendrier) et le convertir en string.

Merci
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
1649
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
7
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 214 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jlen100
Messages postés
4
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
28 mars 2006
0
Merci
Bonjour,
je besion de réccupée l'année de champ date_dip type Date jj-mm-aaaa dans une requette SQL:

Query1.sql.Add('select * from diplome where (year(date_dip) =:dip');
Query1.ParamByName('dip').Asinteger:=strtoint(edit1.text);

exemple: 10-07-2001 renvoi tout les date en 2001

merci.
Commenter la réponse de salinfopc0
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
0
Merci
Salut,
Salinfopc0 même si ta question rejoint sur un point celle de Develomagaly elle n'en est pas moins différente.
Donc si tu veux des réponses à ta question il faut ouvrir un nouveau topic (poser une nouvelle question avec un titre explicite) et pas la poser ici. Merci

@+
Cirec
Commenter la réponse de Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32
0
Merci
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
Commenter la réponse de Cirec