Anders herum!
Schau dir mal bitte genauer an, wie umständlich Borland/Embarcadero
das gelöst haben.
Ich wette zusätzlich, dass die Klassiker schneller sind.
Die DateUtils von z.B D7 machen das umständlicher
Delphi-Quellcode:
function DayOfTheWeek(const AValue: TDateTime): Word;
begin
Result := (DateTimeToTimeStamp(AValue).Date - 1) mod 7 + 1;
end;
Verfolgt das mal weiter
Viel Spass
Gruß
Wolfgang