[29-11-05]
test
test
Delphipedia - Delphipedia - EncodeDayOfWeekInMonth
Deze functie genereert de datum voor 'Ne Weekdag in Maand'. N mag de waarden 1 .. 5 hebben maar bij 5 kan een exception optreden. Dit is handig voor repeterende evenementen zoals Prinsjesdag.
function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word): TDateTime; function TryEncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word; out AValue: TDateTime): Boolean;
uses DateUtils; functon PrinsjesdagInJaar(AJaar : integer): TDateTime; begin // 3e dinsdag in september result := EncodeDayOfWeekInMonth(AJaar, 9, 3, DayTuesday); end;