Sammenligning af tidspunkter

Det er meget let med to TDateTime variable.

var
  t1, t2 : TDateTime;
begin
  t1 := now;

  ... do something

  t2 := now;

  MessageDlg(format('The difference: %s',[TimeToStr(t2-t1)]),mtInformation,[mbOK],0);
end;

Som du ser er der slet ikke brug for en funktion - det hele er smart implementeret vha TDateTime som er en double hvor heltalsdelen er antallet af dage siden Kong Volmer og decimaldelen er antallet af milisekunder siden dagens start. Ved at trække t1 fra t2 får man netop forskellen og den kører man gennem en TimeToStr() og violá, så har du forskellen.

Der er i øvrigt en bunke af funktioner til at behandle dato og tider: Tryk F1 på TimeToStr og følg linket "Datetime routines".

Åhh, skidt. Du får lige funktionen også:

function DateTimeDiff(const aTime1, aTime2 : TDateTime): TDateTime;
begin
  if aTime1 > aTime2 then
    result := aTime1 - aTime2
  else
    result := aTime2 - aTime1;
end;

Du kunne også bruge en DateTimeToStr hvis du ville være helt sikker på at rutinen virker på tværs af datoskift.

Blandt rutinerne finder jeg også: MilliSecondsBetween().

Den kan bruges hvis du vil have forskellen i milisekunder (MSecsPerDay).

Ok, mange tak, hrc.

Jeg kender godt til TDateTime og mange af de der "Datetime routines", men jeg tænkte bare ikke over, at det kunne gøres så let og lige til.

Jeg takker for din hjælpsomhed og også for din kommentar, selvom det ikke lige er det, jeg har brug for. Dit første svar var tilfredsstillende nok for mig. Det er rart at vide, at der er nogle at spørge, hvis man ikke lige selv kan finde svar.

Du får pointene af mig, hvis jeg ellers kan finde ud af det.