[code=pas]var c :string; if c='E' then..... if c='A' then....
decodedate(date y-m-d) ann:=inttostr(y)
DECODEDATE(date)elle est utile pour extraire l'annee de recrutement a partir de la date(DD,MM,YY) c a d le YY
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDecodeTime()
{ This example uses a button and two labels on a form. When the user clicks the button, the current date and time are reported in the captions of the two labels. } procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; SysUtils.DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); SysUtils.DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour); end;