Hallo Leute

Habe eine Frage und zwar errechne ich eine Zeit was auch schon sehr gut geht aber ich komme einfach nicht weiter.
Würde gerne auch negativ Werte haben zB -00:03 min bekomme aber immer nur 00:03 egal ob minus oder plus. Wir kann ich das machen

Danke

markieren

Delphi-Quellcode:

 DB_AZ.Text := formatDatetime('hh:mm',strtotime(DB_AZende.Text)-strtotime(DB_AZbeginn.Text)-strtotime(DB_Pause.Text));
 DB_ZA.Text := formatDatetime('hh:mm',strtotime(DB_SOLL.text)-strtotime(DB_AZ.Text));

DB_ZA.Text := '-'+formatDatetime('hh:mm',strtotime(DB_SOLL.text)-strtotime(DB_AZ.Text)); ?

Danke für die Antwort aber er soll natürlich nur das - machen wenn er auch minus stunden hat.

danke

markieren

Delphi-Quellcode:

function FormatDateTimeSigned(const Format: string; DateTime: TDateTime): string;
begin
  result := SysUtils.FormatDateTime(Format, abs(DateTime));
  if DateTime < 0 then
    result := '-' + result;
end;

Wobei ich die Variable nicht DateTime nennen würde, es gibt schließlich eine gleichnamige Variable in den DateUtills

danke aber wie binde ich das ein
habe irgendwie gerade ein blackput glaube ich

danke

PS: Schau dir mal die Definition vom TDateTime an.

Der Nachkommateil ist die Uhrzeit.
> Uhrzeiten sind immer positiv

habe es jetzt so hinbekommen

markieren

Delphi-Quellcode:

 if StrToTime(DB_SOLL.Text) > StrToTime(DB_AZ.Text) then
begin
  x := StrToTime(DB_AZ.Text) - StrToTime(DB_SOLL.Text);
  DB_ZA.Text := '-' + TimeToStr(x);
end
else if StrToTime(DB_AZ.Text) < StrToTime(DB_SOLL.Text) then
begin
  x := StrToTime(DB_SOLL.Text) - StrToTime(DB_AZ.Text);
  DB_ZA.Text := TimeToStr(x);

nur habe ich noch ein Problem und zwar zeigt er mir die ausgabe in 00:00:00 an sollte aber 00:00 sein wie kann ich das umstellen noch

danke

Zitat von StoRmtec:

nur habe ich noch ein Problem und zwar zeigt er mir die ausgabe in 00:00:00 an sollte aber 00:00 sein wie kann ich das umstellen noch

Dann schauen wir mal in die OH > TimeToStr (hättest'e auch selber machen können)
und was sehen wir?

Ach, StrToTime und TimeToStr nutzen die Systemeinstellungen vom Windows.
PS: Anderes Land, bzw. andere Spracheinstellung und dein Programm macht eventuell nicht mehr, was es soll.

Lösungen:
> Die Systemeinstellung vom Windows/Benutzer verändern. (kommt nicht immer so gut an, wenn man einfach so daran rumschraubt)
> FormatSettings des Programms anpassen. (Achtung, das kann vom system auch mal wieder überschrieben werden)
> Den zweiten Parameter dieser Funktionen nutzen?
> Oder wieder die alternative Funktionen verwenden, wie z.B. FormatDateTime.

aber das komische ist wenn ich einen positiven wert habe dann stimmt die zeit mit 00:00 beim negativen macht er dann -00:00:00 raus.

danke