Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Den letzten Donnerstag eines Monats

   
    by Michael II, 28. Dez 2017
  Du kannst deine Funktion sehr leicht anpassen, indem du von EndOfAMonth nur das Datum, nicht aber die Zeit verwendest:
  
  Function GetLastWeekDayOfMonth( year, month, d : Integer) : TDatetime;
  Var dow, eom : integer;
  // d : 1= Sonntag 2=Montag 3=Dienstag ...
  begin
  eom := trunc( DateUtils.EndOfAMonth(year,month) );
  dow := DayOfWeek(eom);
  
  if ( dow >= d ) then