FDate = TDateTime(2004, 1, 30);
mois= MonthsBetween(FDatenow,FDate);
Label8->Caption=IntToStr(mois);
semaines = WeeksBetween(FDatenow,FDate);
Label10->Caption=IntToStr(semaines);
jours = DaysBetween(FDatenow,FDate);
Label2->Caption=IntToStr(jours);
heures = HoursBetween(FDatenow,FDate);
Label5->Caption=IntToStr(heures);
minutes = MinutesBetween(FDatenow,FDate) ;
Label11->Caption=IntToStr(minutes);
secondes = SecondsBetween(FDatenow,FDate) ;
Label13->Caption=IntToStr(secondes);
millisecondes = MilliSecondsBetween(FDatenow,F Date);
Label15->Caption=IntToStr(milliseconde s);