Timestamp vers datetime

Salut,

J'ai 3378806399 à convertir en DateTime (auquel je dois ajouter 1904 (1er janvier à 0h 0min et 0 sec)
celà devrait donner qq chose comme 25/01/2011 14:45:00

En faisant:

Code:

---

1 2	var temps:TdateTime; temps:=TimeStampToDateTime(strtotime(edit1.Text));

---

retourne

Citation:

---

Types incompatible: 'TTimeStamp' et 'TDateTime'

---

Je n'en sors vraiment pas!!!
Help! :ouin:
Merci pour votre aide!!!
PhilLu

Bonjour à toutes et à tous,

@ PhilLu, peut être une idée, essaye cette fonction :

TimeStampToDateTime convertit une valeur TTimeStamp en valeur TDateTime.

Unité

SysUtils

function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;

Description

Appelez TimeStampToDateTime pour convertir une valeur TTimeStamp en valeur TDateTime. Les valeurs TTimeStamp représentent l'heure en séparant la date et l'heure, où la date est le nombre de jours calendaires écoulés depuis le début du calendrier actuel (le premier janvier 0001 aurait la valeur 1), et l'heure est le nombre de millisecondes depuis minuit. Les valeurs TDateTime représentent l'heure comme le nombre de jours écoulés depuis le 30 décembre 1899 à midi.

Autre exemple :

Code:

---

1 2 3 4 5 6 7 8

const UnixStartDate: TDateTime = 25569.0; // Sets UnixStartDate to TDateTime of 01/01/1970   function UnixToDateTime(USec: Longint): TDateTime; begin //Example: UnixToDateTime(1003187418); Result := (Usec / 86400) + UnixStartDate; end;

---

Utilisation avec ton nombre:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); var MonTemps : TDateTime; begin MonTemps := UnixToDateTime(StrToInt64('3378806399')); ShowMessage(DateTimeToStr(MonTemps));   end;

---

Testé avec D6 sous Seven 64bits !

@+,

Cincap

Salut

Je rejoins cincap dans son raisonnement, cette valeur ne représente pas un TTimeStamp.
Cela ressemble fortement à un encodage similaire à celui d'Unix, c'est-à-dire un nombre de secondes écoulées depuis une date de référence (1 jan 1970 à 0 h pour Unix).

Si ta référence est le 1 jan 1904, alors cette petite fonction renverra un TDateTime (c'est la même que cincap):

Code:

---

1 2 3 4 5 6

function ConvertToDateTime(const Value: Int64): TDateTime; const BaseDate: TDateTime = 1462; // 1-jan-1904 begin Result := (Value / 86400) + BaseDate; end;

---

Ce qui, à noter, renvoie '25/01/2011 13:19:59' pour la valeur 3378806399, et non 25/01/2011 14:45:00 comme tu l'annonces.

@+