Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Datum letzter Samstag?

    Delphi
    by himitsu, 24. Jul 2014
  Jupp, man muß nur mal in die OH schauen und bemerken, daß DayOfTheWeek sich in einer anderen (neuen) Unit befindet, welche man natürlich auch einbinden sollte. :stupid:
  
  function LastDow(DowToMatch: Word{selber Typ wie DayOfTheWeek ... k.A. warum es eventuell mehr als 255 Wochentage geben könnte}; DateToMatch: TDate=0; Weeks: Integer=-1): TDateTime;
  begin
  if DateToMatch = 0 then
  ...
• Forum: Object-Pascal / Delphi-Language

  AW: Datum letzter Samstag?

    Delphi
    by himitsu, 24. Jul 2014
  Wobei man das, wie bereits erwähnt, dennoch mathematisch lösen kann.
  
  Und gleichzeitig wird die Formel dann für alle Wochentage funktionieren. (wenn man nicht die speziell, für den Samstag, gekürzte Version verwendet)
• Forum: Object-Pascal / Delphi-Language

  AW: Datum letzter Samstag?

    Delphi
    by himitsu, 23. Jul 2014
  So als LastWeekDay/Next... (oder so) würde das auch gut in die DateUtils vom XE9 passen. (bzw. als Helper ans TDateTime dran)
  
  
  Im Delphi gibt/gab es mal 3 Kodierungen, in verschiedenen Funktionen.
  
  Kombinationen aus
  1..7 oder 0..6
  und
  So..Sa oder Mo..So
• Forum: Object-Pascal / Delphi-Language

  AW: Datum letzter Samstag?

    Delphi
    by himitsu, 23. Jul 2014
  Jupp, drumm hatte ich auch beide Funktionen erwähnt und verlinkt.
  
  
  
  ARM (iOS, Android), Mac und Linux nicht vergessen. :stupid:
• Forum: Object-Pascal / Delphi-Language

  AW: Datum letzter Samstag?

    Delphi
    by himitsu, 23. Jul 2014
  while dayIterator.DayOfWeek <> DaySaturday do
  dayIterator := dayIterator.AddDays(-1);
  Das kann man auch mathematisch lösen.
  
  DayOfWeek oder DayOfTheWeek geben den aktuellen Wochentag zurück.
  Und nun braucht man nur noch die nötige Differenz zum gewünschten Samstag berechnen, also anhand dessen Wert für DayOfWeek/DayOfTheWeek.
  
  Ergibt dann (glaub ich) Result := Date - (DayOfWeek(Date)...