AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Object-Pascal / Delphi-Language Delphi Differenz zwischen zwei Datumsfelder berechnen

Differenz zwischen zwei Datumsfelder berechnen

Ein Thema von Duffy · begonnen am 11. Jul 2003
Antwort Antwort
Benutzerbild von Duffy
Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
 
Delphi 3 Standard
 
#1

Differenz zwischen zwei Datumsfelder berechnen

  Alt 11. Jul 2003, 17:12
Hallo alle zusammen,
mit diesen Funktionen kann man die Differenz zwischen zwei Datumsfeldern berechnen.
Delphi-Quellcode:
function DaysBetween2(Datetime1, DateTime2: TDateTime): Integer; overload;
begin
  if DateTime1 < Datetime2 then
  begin
    Result := Trunc(DateTime2 - DateTime1);
  end
  else
  begin
    Result := Trunc(DateTime1 - DateTime2);
  end;
end;
Delphi-Quellcode:
function DaysBetween2(Datetime1, DateTime2: string): Integer; overload;
begin
  Result := DaysBetween2(StrToDate(Datetime1), StrToDate(DateTime2));
end;
Delphi-Quellcode:
function DaysBetween2(Datetime1: TDateTime; DateTime2: string): Integer; overload;
begin
  Result := DaysBetween2(Datetime1, StrToDate(DateTime2));
end;
Delphi-Quellcode:
function DaysBetween2(Datetime1: string; DateTime2: TDateTime): Integer; overload;
begin
  Result := DaysBetween2(StrToDate(Datetime1), DateTime2);
end;
die Funktionen werden wie nachfolgend aufgerufen
Delphi-Quellcode:
Differenz = DaysBetween2(Date, StrToDate('01.07.2003'));
Differenz = DaysBetween2('01.07.2003', '11.07.2003');
Differenz = DaysBetween2(Date, '01.07.2003');
Differenz = DaysBetween2('01.07.2003', Date);
bye
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf