Datums/Uhrzeit-Differenz berechnen

[fxbasic]

Hi Leute,

wie kann man genau berechnen, wieviele Jahre, Monate, Wochen, Tage, Stunden und Minuten zwischen zwei TDateTime-Angaben verstrichen sind? Gibt es dafür irgendeine interne Funktion, da ich fürdas Aufrippeln der einzelnen Werte zu faul bin

Danke im Voraus, FXBASIC

[alcaeus]

Die Anzahl Tage bekommst du mit Hilfe der Funktion DaysBetween. Daraus kannst du dann bequem Monate etc. berechnen, aber ich hatte mal irgendwo so ein Countdown-Programm *such*

[Ratte]

Hi,

Vieleicht hilft dir das: http://www.delphi-source.de/tipps/sprache/?id=160

Ratte

[dR4g0N]

oder vlt das hier: hatte mal ein kleines konsolenprogrämmchen geschrieben:

Delphi-Quellcode:

program datum;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  date1, date2, date3 : String;
  mdate1, mdate2, mdate3, between : TDateTime;

begin

WriteLn('Bitte geben Sie das 1. Datum ein: [dd.mm.yyyy]');
ReadLn(date1);
WriteLn('Bitte geben Sie das 2. Datum ein: [dd.mm.yyyy]');
ReadLn(date2);
mdate1 := StrToDate(date1);
mdate2 := StrToDate(date2);
between := DateDelta + StrToInt('365');
mdate3 := mdate1 - mdate2 - between;
date3 := DateToStr(mdate3);
WriteLn('Die Differenz betraegt: ', date3);
ReadLn

end.

[fxbasic]

Danke, hab's selber gefunden:

DaysBetween, WeeksBetween, YearsBetween, MonthsBetween, HoursBetween und MinutesBetween

Das war's, was ich suchte!

Gruß, FXBASIC