Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Day of First Month

    Delphi
    by Michael II, 4. Jan 2018
  Hallo himitsu
  
  Danke für deine wertvollen Tipps. Dein Code sieht in der Tat viel übersichtlicher aus - und ich gebe zu: Wenn jemand von aussen deinen und meinen sieht, dann weiss man bei meinem überhaupt nicht was Sache ist - bei deinem erkennt man aber ales sofort.
  
  Den Unterschied zwischen DayOfWeek und DayOfTheWeek kenne ich. Aber besten Dank!
  
  trunc hatte ich verwendet, weil ich das...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Day of First Month

    Delphi
    by Michael II, 3. Jan 2018
  function FirstMondayOfMonth( year, month : integer ):TDateTime;
  var dof, firstday : integer;
  begin
  firstday := trunc(EncodeDate( year, month, 1 ));
  dof := DayOfWeek( firstday ); // dof : 1= Sunday 2=Monday 3=Tuesday ...
  if dof <= 2 then Result := firstday + 2-dof
  else Result := firstday + 9-dof;
  end;