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
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
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
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
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