EncodeDateTime : erreur "not a valid date specification"
Bonsoir,
je cherche à convertir une valeur en minute vers un tdatetime, je fais :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
var min , h, jours, mois: integer;
min := 36745 mod 60;
h := 36745 div 60;
jours := h div 24;
if jours > 0 then
begin
h := h mod 24;
mois := jours div 30;
if mois > 0 then jours := jours mod 30;
end;
//composedatetime(date_debut.Date,heure_encode);
date_alarme := composedatetime(encodedate(0,mois,jours),encodetime(h,min,0,0)); |
J'ai une erreur econverterror dans le encodedate avec le message "0-0-25 is not a valid date specification", pourquoi cette erreur pour moi cette valeur peut aller de 0 à 31 non ?
Merci
David
ps : j'initialise mes variables à 0 au départ