Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Datum einlesen und verwenden


counterskiller - Fr 15.05.09 18:31
Titel: Datum einlesen und verwenden
Hey liebe Delphianer,

Ich möchte ein Programm schreiben was folgendes kann, leider hab ich mich lange nicht mehr mit delphi beschäftigt und weiß nicht mehr wie das geht:

Ich habe zwei eingabe felder. In diese sollten jeweils ein Datum eingetragen werden zb
01.02.1999 und 01.02.2000. Jetzt soll der abstand der daten in Tagen berechnet werden.
Wie könnte ich das realisieren?
Des weiteren möchte ich für eine weitere aufgabe nur das jahr benutzen sprich in meinem beispiel 1999.

Nur diese 2 kleinen fragen ;) hoffe das wird kein problem

vielen dank schonmal
mfg cs


Moderiert von user profile iconNarses: Topic aus Sonstiges (Delphi) verschoben am Fr 15.05.2009 um 18:48


Delete - Fr 15.05.09 18:32

Je nach Delphi-Version könntest Du die Unit DateUtils verwenden, da ist alles Notwendige drin ;)


counterskiller - Fr 15.05.09 18:36

ich hab delphi7 aber wie gesagt ich weiß nicht mehr wie das alles funktioniert^^. Also bitte etwas mehr dazu schreiben


Delete - Fr 15.05.09 18:38

Das müsste sich mit DaysBetween und YearOf aus der Unit DateUtils (die gibt es IIRC bereits unter Delphi 7) machen lassen.


ffgorcky - Sa 16.05.09 13:50

Also so funktioniert das bei mir:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.ButtonAbstandBerechnenClick(Sender: TObject);
var Datum1,Datum2:TDate;
begin
Datum1:=StrToDate(EditDatum1.Text);
Datum2:=StrToDate(EditDatum2.Text);
LabelAbstand.Caption:=IntToStr(daysbetween(Datum1,Datum2));
end;