|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
24. Dez 2002, 16:31
Moin Yheeky,
so sollte es gehen:
Delphi-Quellcode:
function GetSunday(RefDay: TDate): TDate;
var
DoW: Integer;
DateOffset: Integer;
begin
DoW := DayOfWeek(RefDay);
if DoW = 1 then DateOffset := 0
else
DateOffset := Dow - 8;
Result := RefDay - DateOffset;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|