Récupérer l'année de la date en coursRésolu

Question

bonjour,

je voudrait recupere l'ann&#233;e de la date en cours ( par rapport a la date systeme ou calendrier) et le convertir en string.

Merci

jlen100 · Answer

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&#233;e ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := 'Il est ' + IntToStr(Hour) + ' heures et '

+ IntToStr(Min) + ' minutes';

end;

bonne prog

salinfopc0 · Answer

Bonjour,
je  besion de r&#233;ccup&#233;e  l'ann&#233;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.

Cirec · Answer

Salut,
Salinfopc0 m&#234;me si ta question rejoint sur un point celle de Develomagaly elle n'en est pas moins diff&#233;rente.
Donc si tu veux des r&#233;ponses &#224; ta question il faut ouvrir un nouveau topic (poser une nouvelle question avec un titre explicite) et pas la poser ici. Merci 

@+
Cirec

Cirec · Answer

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

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

4 réponses

Votre réponse

Discussions similaires