Discussion :

[[ZiP]]

Bonjour,

J'ai une donnée en ULONG qui est un timestamp, je dois la convertir en TTimeStamp pour ensuite l'utiliser en TDateTime mais je n'y arrive pas...

Comment feriez-vous ?

Merci,
ZiP

[sjrd]

Ben tu transtypes ton ULONG en TimeStamp, et ensuite tu utilises TimeStampToDateTime, de l'unité SysUtils :

Code :

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

DateTime := TimeStampToDateTime(TTimeStamp(Value));

[[ZiP]]

Bonsoir,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  TEnregistrementMeteo = packed record
       Inconnu                : ULONG;
       Horaire                : ULONG;
       PressionAbsolue        : Single;
       VentVitesse            : Single;
       VentDirection          : ULONG;
       PluieAbsolue           : Single;
       TemperatureInterieure  : Single;
       TemperatureExterieure  : Single;
       HumiditeInterieure     : Short;
       HumiditeExterieure     : Short;
  end;
 
DateTimeToStr(TimeStampToDateTime(TTimeStamp(gEnregistrementsMeteo[i-1].Horaire)))

J'ai l'erreur suivante :

[DCC Erreur] MPrincipale.pas(101): E2089 Transtypage incorrect

Que faire ?

Merci,
ZiP

[Jipété]

Que faire ?

F1 sur TTimeStamp, car on dirait que tu as mal posé le problème dans ton premier post :

J'ai une donnée en ULONG qui est un timestamp

F1 sur TDateTime t'apportera peut-être la solution.
Mes 2 cts,
--
jp

[[ZiP]]

Bonsoir,

En effet, j'ai une donnée de type ULONG qui represente un timestamp, comme par exemple : Horaire = 8,8396824297e+21

Je vais regarder dans l'aide...

Mais je suis un peu perdu là

ULong [4] Timestamp seconds from 1/1/1900 00:00:00 (GMT)

ZiP

[Jipété]

Ceci fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type
  TEnregistrementMeteo = packed record
    Inconnu                : ULONG;
//    Horaire                : ULONG;
    Horaire                : TTimeStamp;
    PressionAbsolue        : Single;
    VentVitesse            : Single;
    VentDirection          : ULONG;
    PluieAbsolue           : Single;
    TemperatureInterieure  : Single;
    TemperatureExterieure  : Single;
    HumiditeInterieure     : Short;
    HumiditeExterieure     : Short;
  end;
 
var
  em : TEnregistrementMeteo;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  em.Horaire.Date := 1196; // pourquoi pas ?
  em.Horaire.Time := 9125; // pourquoi pas ?
  Form1.Caption := DateTimeToStr(TimeStampToDateTime(TTimeStamp(em.Horaire))); // = 10/04/0004 00:00:09 
end;

Mes 2 cts,
--
jp

[[ZiP]]

Ton exemple compile mais ne fonctionne pas avec mes données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  TEnregistrementMeteo = packed record
       Inconnu                : ULONG;
       Horaire                : TTimeStamp;//ULONG;
       PressionAbsolue        : Single;
       VentVitesse            : Single;
       VentDirection          : ULONG;
       PluieAbsolue           : Single;
       TemperatureInterieure  : Single;
       TemperatureExterieure  : Single;
       HumiditeInterieure     : Short;
       HumiditeExterieure     : Short;
  end;
DateTimeToStr(TimeStampToDateTime(gEnregistrementsMeteo[i-1].Horaire))

J'ai l'erreur suivante :

21:53:49 -> '1149104947.-890040616' n'est pas une heure correcte

Mes données :
Horaire = -890040616

Le format de ma donnée :

ULong [4] Timestamp seconds from 1/1/1900 00:00:00 (GMT)

Merci pour votre aide,
ZiP

[Jipété]

Salut,

À mon avis tu mélanges la notion de Time Stamp (en deux mots) et l'objet TTimeStamp...

Ça vient d'où, ça :

ULong [4] Timestamp seconds from 1/1/1900 00:00:00 (GMT)

--
jp

[[ZiP]]

En effet, je pense que j'ai confondu les deux notions.

Je vais corriger mon code.

Je vous tiens informés.

Merci,
ZiP

[[ZiP]]

La donnée ne semble pas être correcte, à moins que je me trompe...

Ci-joint les données :
http://cjoint.com/?lCiWJOwHG3

Le format de celle-ci :

Les enregistrements de 36 octets :
ULONG Unknown;
ULONG timestamp;
float absolute_pressure;
float wind_speed;
ULONG wind_direction;
float absolute_rainfall;
float indoor_temperature;
float outdoor_temperature;
unsigned short indoor_humidity;
unsigned short outdoor_humidity;

La donnée timestamp ne semble pas êrtre correcte.

Merci pour votre aide,
ZiP

[[ZiP]]

J'ai donc résolu mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  TEnregistrementMeteo = packed record
       Inconnu                : LongWord;
       Horaire                : LongWord;
       PressionAbsolue        : Single;
       VentVitesse            : Single;
       VentDirection          : LongWord;
       PluieAbsolue           : Single;
       TemperatureInterieure  : Single;
       TemperatureExterieure  : Single;
       HumiditeInterieure     : Short;
       HumiditeExterieure     : Short;
  end;
DateTimeToStr(EncodeDate(1970,1,1) + (gEnregistrementsMeteo[i-1].Horaire - 2208988800) / 86400)

Cordialement,
ZiP