Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.150 Beiträge
 
Delphi 12 Athens
 
#12

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 29. Apr 2009, 14:22
Du schaust mit DayOfWeek nach welcher Tag auf den 1. fällt
dann kannst du ausrechnen wie lange die erste Woche noch geht.
nun läßt sich ausrechnen wann der 1. Wochenbeginn innerhalb dieses Monat wäre.
DayOfMonth gibt's doch auch nocht? ... also bis wann geht der Monat > DatumDesMonatsendes

und nun
1{für die 1. Teilwoche} + Aufrunden((DatumDesMonatsendes - DatumDesWochenbeginns + 1 {=Resttage}) / 7) = WochenInDiesemMonat
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat