Discussion :

[petitcoucou31]

bonjours a tous ,

Existe il une fonction qui donne la representation d'une date sous forme d'entier ? ( j'ai pas cru voir cela un jour mais je suis incapable de retrouver où , ou alors j'ai revé ! )

merci ,bye

[sjrd]

Étant donné qu'une date est un Double, que le Double est codé sur 8 octets, et que l'Int64 aussi, tu peux faire un simple transtypage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var Date : TDateTime;
    Entier : Int64;
begin
  Date := Now;
  Entier := Int64(Date);
  ShowMessage(IntToStr(Entier));
end;

[Reisubar]

Perso, j'utilise DateTimeToUnix et UnixToDateTime que encodent/décodent de TDateTime vers Int64 et inversement.

[tourlourou]

A mon sens, le TDate est un entier (nb de jours écoulés depuis 1 origine)
le TDateTime est bien un réel, la partie décimale codant les hms

[LadyWasky]

Je suis exactement du mème avis que tourlourou, un TDate est un entier, codé sur un réel pour ajouter l'heure après la virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function DateToInt(UneDate:TDate):integer;
begin
   result:=Trunc(UneDate);
end;

d'ailleurs je vous renvoie à ce fil de discussion qui utilise cette spécificité :
Générer le listing des jours entre deux dates

[sjrd]

A mon sens, le TDate est un entier (nb de jours écoulés depuis 1 origine)
le TDateTime est bien un réel, la partie décimale codant les hms

Non le TDate est équivalent au TDateTime. Il est déclaré de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type
  TDate = type TDateTime;

Cela signifie que TDate est construit de la même façon que le TDateTime mais en indiquant au compilateur et surtout au compléteur de code que ces types sont différents.

[tourlourou]

effectivement, mea culpa