Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
Delphi 12 Athens
|
Re: Anzahl der Wochen eines Monats ermitteln
29. Apr 2009, 15: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
|