Uhrzeit aufsplitten und in 2 Variablen stecken

[Kruemel2oo2]

Hio

Ich möchte meine Uhrzeit, die ich mir von der Datenbank hole, aufsplitten und in 2 verschiedenen Variablen speichern. Ich weiß aber leider nicht wie man das macht könnte mir da mal bitte einer helfen?

gruß Kruemel

[Bernhard Geyer]

Delphi-Quellcode:

DatePart := Trunc(DateTimeFromDB);
TimePart := DateTimeFromDB - DatePart;

Wie Delphi die Datums/Zeitangaben in TDateTime speichert kannst Du in der Delphi-Hilfe nachlesen.

[Kruemel2oo2]

wieso Datepart? habe doch kein Datum drin.
Und als was soll ich das deklarieren?

[Bernhard Geyer]

Ok, du hast nur 'ne Uhrzeit.
Ich dachte Du willst nach Datum und Uhrzeit aufsplitten.

Dann verrate uns doch nach was Du aufsplitten willst und was der sinn davon ist.

[Treffnix]

Dann musst du mal genauer sagen in was du den Wert splitten möchtest. Ich bin auch von Datum/Uhrzeit ausgegangen.

Wenn du z.B. in Stunden und Minuten splitten willst, guck dir mal die Funktionen HourOf() und MinuteOf() an.

Ansonsten wird ein Tag in Datetime als reale 1 dargestellt. 1 Stunde ist also 1/24. 1 Minute 1/24/60 usw.

[Kruemel2oo2]

Also ich möchte das in Stunden und Minuten splitten. Naja und das nutze ich für eine Berechnung.

[Kruemel2oo2]

Hmm mit den HourOf() und MinuteOf() versteh ich das ehrlich gesagt nicht wirklich wie das in der Hilfe gemeint ist.

Aber das ist ja auch irgendwie nicht so das man sich die Uhrzeit von einer Datenbank holt. Glaub ich zumindestens. Wie gesagt hab das nicht wirklich verstanden was die Hilfe da sagt.

[Treffnix]

Ne, mit DB steht das da nicht. Den Wert musste schon selber holen. Wenn die für jedes spezielle Problem nen Beispiel drin hätten, gäbs ja nix mehr zu programmieren.

Delphi-Quellcode:

uses DateUtils;

Procedure Machwas;
var 
  Minutes, Hours: Integer;
Begin
  Hours   := HoursOf( dbqry.FieldByName('Uhrzeit').AsDateTime );
  Minutes := MinutesOf( dbqry.FieldByName( 'Uhrzeit' ).AsDateTime);
End;

[Kruemel2oo2]

thx

[Kruemel2oo2]

thx noch mal