Posez votre question Signaler

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
Delphi / Pascal Posez votre question Signaler
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
Signaler Commenter la réponse de jlen100
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
Signaler Commenter la réponse de salinfopc0
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
Signaler 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
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
Signaler 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
Répondre Posez votre question