Hallo,
stimmt das so?
Delphi-Quellcode:
function GetFirstWeekDayInMonth(Month: TDateTime,WeekDay: 1..7): Integer;
var
FirstDay : Integer;
begin
FirstDay := DayOfTheWeek(RecodeDay(Month,1));
Result := WeekDay - FirstDay;
end;
Ich hab das ganze als Zweizeiler in nem Programm, das noch ziemlich wachsen wird, und möchte nicht Gefahr laufen, durch nen Fehler da mir alles zu zerhauen und das dann ewig nicht zu finden...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1