Zitat von
DGL-luke:
Delphi-Quellcode:
function GetFirstWeekDayInMonth(Month: TDateTime,WeekDay: 1..7): Integer;
var
FirstDay : Integer;
begin
FirstDay := DayOfTheWeek(RecodeDay(Month,1));
Result := WeekDay - FirstDay;
end;
Was passiert, wenn FirstDay > Weekday. Dann erhälst du ein negatives Ergebnis. Ist das beabsichtigt? Muss das abgefangen werden?
Was bewirkt WeekDay?
Gerd