Timestamp Unix in TDateTime Anzeigen

[Alterauge]

Der Vorschlag von Klaus ist bestimmt gut!
Komme da aber nicht weiter, habe es noch nicht verstanden!

Da ist die Funktion vorgegeben, brauche aber bestimmt noch eine
Procedure fürs Grid oder nicht?

Habe bestimmt gerade wieder ein Brett vorm Kopf!
So sind die Anfänger halt!

[DeddyH]

Kann man da nicht auf Feldebene ansetzen? Also entweder schon in der SQL-Abfrage casten oder wenn das nicht geht, im OnGetText des Feldes umwandeln. Das fällt mir zumindest als Erstes ein.

[Alterauge]

Ok,Danke dür Deinen Hinweis!
Versuche mal mein Glück!

[Klaus01]

Guten Morgen,

kannst Du mal einen Timestamp hier einstellen?
Kann es sein, dass der Timestamp noch Millisekunden enthält?

Kannst Du den Timestamp hier (http://www.unixtime.de/) konvertieren?

Grüße
Klaus

[Alterauge]

Hallo,

siehe Anhang Bild3 das DBGrid mit Timestamp.
Die Daten kommen aus einer MySQL DB.

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dateTime: TDateTime;
begin
  dateTime := unixToDateTime(1361196900);
  showMessage(dateTimeToStr(dateTime));
end;

ergibt 18.02.2013 14:15:00

Edit: Eine Konvertierung mit dem Webtool ergibt: Realzeit: 18.02.2013 - 15:15:00
Wodurch die 1h Abweichung entsteht .. ?

Grüße
Klaus

[DeddyH]

Zitat von DeddyH:

Kann man da nicht auf Feldebene ansetzen? Also entweder schon in der SQL-Abfrage casten

https://dev.mysql.com/doc/refman/5.5..._from-unixtime

[Alterauge]

Hallo,
hier jetzt das Rroblem richtig beschrieben.

Greife mit einem CRDBGrid auf eine mySQL DB zu.
Im CRDBGrid wird in der Zeile Timestamp das UnixDateTime format angezeigt!

Dieses möchte ich gerne ändern in das FormatDateTime.
Habe mir folgendes überlegt:

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i : Integer;
  Wert: string;
  d: TDateTime;
begin
   if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
     Exit;
  Wert := CRDBGrid1.DataSource.DataSet.FieldByName('Timestamp').Value;
  d:= UnixToDateTime(i);
  Label3.Caption := FormatDateTime('dd/mm/yy  hh:nn:ss', d);  
  //CRDBGrid1.Canvas.TextRect(Rect, Label3.Caption);
  CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Aber komme einfach nicht weiter, wer hat für mich einen Lösungsvorschlag?

[DeddyH]

Immer noch denselben: konvertiere doch gleich in der Abfrage.

[Alterauge]

DeddyH,

glaube es mir bin schon die ganze Woche am testen und am schreiben!
Zeig mir bitte wie!
Habe glaube alles was im Netz steht ausprobiert, ohne Erfolg!

Gruß