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

Signaler
Messages postés
46
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
3 mai 2006
-
 Toni -
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

4 réponses

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
11
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
Merci cela m'a bien aidé, car sur Windows10, l'aide ne fonctionne plus.
Messages postés
4
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
28 mars 2006

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.
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
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
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
PS:
Pour Develomagaly :

Tu peux aussi récupérer le jour de la semaine et le mois (en lettres) :

procedure  TForm1.MaProcedure(<bold>Const</bold> aDate: TDateTime; <bold>out</bold>  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