Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Zeitberechnung mit Tagen

    Delphi
    by S4SH1981, 18. Dez 2008
  Der Link bezieht sich auf mein Posting @ MKinzler
• Forum: Object-Pascal / Delphi-Language

  Re: Zeitberechnung mit Tagen

    Delphi
    by S4SH1981, 18. Dez 2008
  procedure TForm1.Button1Click(Sender: TObject);
  var
  Date1, Date2, Difference : TDateTime;
  begin
  Date1 := datetimepicker1.time;
  Date2 := datetimepicker2.Time;
  Difference := Date2 - Date1;
  edit2.Text := inttostr(trunc(difference * 24));
  edit1.Text:= IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference);
  end;
• Forum: Object-Pascal / Delphi-Language

  Zeitberechnung mit Tagen

    Delphi
    by S4SH1981, 18. Dez 2008
  var
  Date1, Date2, Difference : TDateTime;
  begin
  Date1 := StrToDateTime('01.11.2006 10:00:00');
  Date2 := StrToDateTime('02.11.2006 12:15:00');
  Difference := Date2 - Date1;
  ShowMessage (IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference));
  end;
  
  Dabei zeigt mir das Programm 26:15:00