DaysBetween (Delphi 7)

[blizzard750]

Hey iedereen,

Ik wil met behulp van de DaysBetween functie het aantal dagen tussen datum A en datum B berekenen.

Ik gebruik een MonthCalender om zo een datum reeks te kunnen selecteren en 2 labels (label1 & label2) om de begin en einddatum aan te geven. Nu wil ik graag in Edit1 de looptijd te zien krijgen hoeveel dagen er geselecteerd zijn maar nu komt het probleem:

Ik heb geen idee hoe ik een functie moet gebruiken

Zouden jullie mij kunnen helpen?

 

[blizzard750]

Ik heb het zelf opgelost

Na wat verder surfen op internet ben ik erachter gekomen hoe ik het moet gebruiken in mijn code:

--------------------------------------------------------------------------------------------------------
procedure TResourcePlan.Button1Click(Sender: TObject);
var BDate, EDate : TDateTime;
begin
BDate := MonthCalendar1.Date;
EDate := MonthCalendar1.EndDate;

ShortDateFormat := 'dd - mm';
Edit1.Text := DateToStr(DaySpan(BDate, EDate));
end;
--------------------------------------------------------------------------------------------------------

Toch maar geen labels gebruikt en direct de gegevens in de variabelen gezet. Scheelt ook weer wat ongein op het form.