extraire le moi ou annee d'une date longe

bonjour, j'ai un code qui donne le moi et l'annee d'une date longue exemple (10/11/2008)
ce code est ecrit en clipper, est vous pouvez m'aidez de transferer ce code en delphi5
le code est:
date =11/10/008
moi=month(date)
annee=year(date)
sachant que je veut utuliser datetimepicker
aidez moi s'il vous plais.

var jour,mois,annee: integer;
      dt : string;

dt:=datetostr( datetimepicker1.date);

jour:=        strtoint     (dt[1]+dt[2]);
mois=        strtoint     (dt[4]+dt[5]);
annee=        strtoint     (dt[7]+dt[8]dt[9]+dt[10]);



 

annee := YearOf (DateTimePicker1.Date);
mois  := MonthOf(DateTimePicker1.Date);
jour  := DayOf  (DateTimePicker1.Date);

Tu peux aussi utiliser la fonction DecodeDate, le contraire étant EncodeDate au cas oú tu en aurais besoin ...

MERCI BEAUCOUP DE VOTRE AIDE.

procedure TForm1.FormActivate(Sender: TObject);
var xx,yy,zz:integer;
begin
yy:=Calendar1.Day;
zz:=Calendar1.Year;
xx:=Calendar1.Month;
case xx of
1: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÌÇäÝí' +' '+inttostr(zz); exit end;
2: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÝíÝÑí' +' '+inttostr(zz); exit end;
3: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ãÇÑÓ' +' '+inttostr(zz); exit end;
4: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÃÝÑíá' +' '+inttostr(zz); exit end;
5: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ãÇí' +' '+inttostr(zz); exit end;
6: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÌæÇä' +' '+inttostr(zz); exit end;
7: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÌæíáíÉ' +' '+inttostr(zz); exit end;
8: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÃæÊ' +' '+inttostr(zz); exit end;
9: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÓÈÊãÈÑ' +' '+inttostr(zz); exit end;
10: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÃßÊæÈÑ' +' '+inttostr(zz); exit end;
11: begin Label16.Caption:=inttostr(yy)+ ' '+ 'äæÝãÈÑ' +' '+inttostr(zz); exit end;
12: begin Label16.Caption:=inttostr(yy)+ ' '+ 'ÏíÓãÈÑ' +' '+inttostr(zz); exit end;
end;

Dommage, à 1 jour près tu avais 2 ans de retard.
Belle fonction en tout cas