Discussion :

[reg11]

Salut,
un petit souci de date,
je recupère un format date en string de format timestamp

exemple : 1119930901

comment je fais pour passer en année mois jours ?

merci d'avance

[MD Software]

Tu as essayé un cast brutal ?

Code :

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

1
2
3
4
var Tampon : TDateTime;
begin
  Tampon := TDateTime(StrToFloat(maChaine));
end;

[reg11]

je connais pas ca, c'est apparemment brutal

il me dit transtypage incorrect

TDateTime(StrToFloat(maChaine));

pige pas pourquoi tdatetime ?

[tourlourou]

il y a plusieurs formats de codage : Unix, Windows ...
il doit y avoir des fonctions style UnixToDateTime pour convertir un timestamp en TdateTime qui est le format privilégié de Delphi, puis es fonctions DateTimeToString...

[reg11]

il y'a bien une fonction :
UnixToDateTime

mais comment je passe du string qui est ma valeur de départ à timestamp ?

[reg11]

date:= strtodatetime(ajout_date);
date_convert := UnixToDateTime(date);

erreur : Types incompatibles : 'Int64' et 'TDateTime'

[reg11]

j'ai trouvé ca :

Code :

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

1
2
3
4
5
6
7
8
9
 
function UnixToDateTime(USec: Longint): TDateTime;
begin
  //Example: UnixToDateTime(1003187418);
  Result := (Usec / 86400) + UnixStartDate;
end;
 
               date:= strtoint(ajout_date);
               date_convert:=UnixToDateTime(ajout_date);

le problème c'est que j'ai une erreur d'exeption 1119930901 n'est pas uen valeur correct :

[reg11]

j'ai trouvé ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
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;
 
               date:= strtoint(ajout_date);
               date_convert:=UnixToDateTime(ajout_date);

le problème c'est que j'ai une erreur d'exeption 1119930901 n'est pas une valeur correct :

[reg11]

est ce quelqu'un a essaye cette fonction ?

je la vois partout mais chez moi ca fonctionne pas

[Tardiff Jean-François]

Bonjour

Le plus simple ne serait'il pas EncodeDate

Code :

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

1
2
3
4
5
6
 
An := '2005';
Mois := '1';
Jour := '5';
 
Date := EncodeDate(An, mois, jour);

[reg11]

Dans mon cas, j'ai un format Unix date, donc je pense pas que EncodeDate fasse l'affaire.

[MD Software]

C'est normal que ceci ne marche pas

Code :

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

1
2
date:= strtodatetime(ajout_date); 
date_convert := UnixToDateTime(date);

Tu passes à la fonction un TDateTime alors qu'il attend un LongInt.
Essaye ça

Code :

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

date_convert := UnixToDateTime(StrToInt64(ajout_date));

[reg11]

non ca fonctionne pas
si il attend un Longint, et que je convertit en Int64, y'a problème non ?

erreur d'exeption 1119930901 n'est pas une valeur correct,

[MD Software]

Je viens de faire un test, ce code fonctionne bien

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
  var toto : TDateTime;
begin
  toto := UnixToDateTime(StrToInt64('1119930901'));
  ShowMessage(DateTimeToStr(toto));
end;

[reg11]

j'avais un espace quand je recuperais ma date ...

Code :

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

1
2
 
date_convert := UnixToDateTime(StrToInt64(trim(ajout_date)));

merci MD, j'essaierai la prochaine fois d'etre plus attentif