Discussion :

[PhilLU]

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 :

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

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

retourne

Types incompatible: 'TTimeStamp' et 'TDateTime'

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

[cincap]

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 :

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

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 :

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

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

[Cl@udius]

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 :

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

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.

@+