[Delphi] Obliczanie tygodni

Bardzo prosze o pomoc. Jak napisać program, który obliczałby liczbę tygodni pomiędzy dwoma datami, pobieranymi np. z Edita-a.

Do uses dodaj DateUtils

LiczbaTyg := WeeksBetween(Pozniejsza, Wczesniejsz)

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC: #4programmers, warszawa.ircnet.pl (POLNet)

Zakładając , że mamy na formie w edity : data_1 i data_1 , poniższa procedura wyciągnie z nich datę, a następnie dzien-miesiac-rok.
Może to nie jest to czego szukasz, ale może ci się również przydać poniższa procedure:

procedure ???

var
data__1, data__2 : string;
dzien_1, miesiac_1, rok_1 : integer;
dzien_2, miesiac_2, rok_2 : integer;
begin

data__1 := data_1.Text;
Delete(data__1,3,8); //usuwanie znaków
dzien_1 := StrToInt(data__1);
data__1 := data_1.Text;
Delete(data__1,1,3); //usuwanie znaków
Delete(data__1,3,8); //usuwanie znaków
miesiac_1 := StrToInt(data__1);
data__1 := data_1.Text;
Delete(data__1,1,3); //usuwanie znaków
Delete(data__1,1,3); //usuwanie znaków
rok_1 := StrToInt(data__1);

data__2 := data_2.Text;
Delete(data__2,3,8); //usuwanie znaków
dzien_2 := StrToInt(data__2);
data__2 := data_2.Text;
Delete(data__2,1,3); //usuwanie znaków
Delete(data__2,3,8); //usuwanie znaków
miesiac_2 := StrToInt(data__2);
data__2 := data_2.Text;
Delete(data__2,1,3); //usuwanie znaków
Delete(data__2,1,3); //usuwanie znaków
rok_2 := StrToInt(data__2);

end.

WeeksBetween - :-)

A ja się tu ścieram :-P :-P :-P

Dzięki :)