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.