Ilsuffit de créer un TDateTime du 1er janvier de l'année et de faire la différence :


TDateTime dtActuel = Now();
Word an, mois, jour;
DecodeDate(dtActuel , an, mois, jour);
TDateTime dtDebut...