Wochendifferenz zwischen zwei Datumsangaben

[princyto]

Hallo,

ich hab folgendes Problem: Aus zwei Datumsangaben soll ich die Differenz in Wochen bestimmen.
Mit 1 Siebtel-Stelle nach dem Komma.

Das heisst: 6 Tage: 0,6 Wochen/Tage
7 Tage: 1 Wochen/Tage
15Tage: 2,1 Wochen/Tage

Beispiel:

14.07.2008 - 27.07.2008 = 13 Tage (1 Woche und 6 Tage 1,6)

Die Funktion "WeekSpan" liefert ein Ergebnis von 1,8 Wochen!!!!

Wie kann es sein, dass die Funktion sich um zwei Tage verrechnet?
Wie kann ich so etwas realisieren?

[Tyrael Y.]

Ähm die Funktion gibt das richtige Ergebnis wieder...

13 Tage sind etwa 1,8 Wochen

13/7 = 1,85714

[DeddyH]

Das hier sollte das von Dir erwartete Ergebnis bringen:

Delphi-Quellcode:

function MyWeekSpan(const iDays: integer): double;
begin
  Result := iDays div 7 + (iDays mod 7 / 10);
end;

[princyto]

Danke, hast recht mit mod-operator verändere ich ja den Basiswert der ja 7 ist und nicht 10!

Danke noch mal!