[delphi 5 ] Comment fais fais ton pour soustraire 2 date et obtenir ..

Comment fais fais ton pour soustraire 2 date et obtenir .. [delphi 5 ] - Programmation

Marsh Posté le 18-07-2001 à 09:01:42    

bonjour a tous et a toute  
Comment fais fais ton pour soustraire 2 dates et obtenir un entier .  
 
 du style  (date d'aujourd'hui)-(13/07/2001)= alpha  
 
avec alpha un integer ???
 
please help !!!


---------------
L'homme est profondement mauvais. Il n'appartient qu'à lui d'être bon. Moi, je ne ne généralise jamais ni mes actes, ni mes raisonnement...
Reply

Marsh Posté le 18-07-2001 à 09:01:42   

Reply

Marsh Posté le 18-07-2001 à 12:43:17    

Si tu tiens vraiment à ton entier :
 
var  
 Alpha: integer;  
 MaDate: TDate;  
begin  
 MaDate := StrToDate('13/07/2001');  
 Alpha := Trunc(Date - MaDate); // Date étant la date du jour  
 ShowMessage(FloatToStr(Alpha)); //Bah aujourd'hui ca fait 5 !  
end;

Reply

Marsh Posté le 18-07-2001 à 20:10:20    

Et pour calculer le nombre d'années entre les deux dates il suffit de faire Alpha := Alpha/365.25;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed