5616 connectés

FORUM HardWare.fr

Programmation

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

Recherche :

Dernière réponse
Sujet : [delphi 5 ] Comment fais fais ton pour soustraire 2 date et obtenir ..
AlphaT	Et pour calculer le nombre d'années entre les deux dates il suffit de faire Alpha := Alpha/365.25;

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

AlphaT

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

Miles V a écrit a écrit :

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;

Un dernier petit truc...
remplace la dernière ligne par:
ShowMessage(IntToStr(Alpha));

A+

Miles V

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;

Il est impossible de récuperer directement un entier car un TDateTime ou un TDate est encodé sous forme de double.
Mais ca se fait facilement quand même!

var
Alpha: double;
MaDate: TDate;
begin
MaDate := StrToDate('13/07/2001');
Alpha := Date - MaDate; // Date étant la date du jour
ShowMessage(FloatToStr(Alpha)); //Bah aujourd'hui ca fait 5 !
end;

Zou
A+

Australe

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 !!!