Datum einlesen und verwenden

counterskiller · Hält's aus hier Beiträge: 2

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 Narses: Topic aus Sonstiges (Delphi) verschoben am Fr 15.05.2009 um 18:48

Ehemaliges Mitglied Erhaltene Danke: 1

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

counterskiller · Hält's aus hier Beiträge: 2

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

Ehemaliges Mitglied Erhaltene Danke: 1

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

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Also so funktioniert das bei mir:

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme