Modul OwnGadget (PB5.2x)

[Bisonte]

Update kommt wohl erst morgen, bin ein wenig ausgelastet (und das an nem Sonntag )

Code: Alles auswählen

Procedure SonntageSeitForumPost(Datum)
  
  Protected Stop = Date(), Sonntage = 0
  
  While DayOfWeek(Datum) <> 0 : Datum = AddDate(Datum, #PB_Date_Day, 1) : Wend
  While Datum < Stop : Datum = AddDate(Datum, #PB_Date_Week, 1) : Sonntage + 1 : Wend
  
  ProcedureReturn Sonntage
  
EndProcedure

Debug SonntageSeitForumPost(Date(2014, 3, 23, 15, 27, 0))

46 Sonntage sind seitdem vergangen.... Was neues ?

[ts-soft]

Nein, oder vermiß ich was?
(Außerdem haben wir Dienstag).

[Bisonte]

Nunja, es schien sich so herauszukristallisieren, dass du eine CrossplattformVarainte des Moduls in petto hättest....
Und da der Montag, an dem Du das Update versprachst schon zum 46. Male verstrich, fragte ich mal nach ....

Aber gut, wenns nix gibt.... gibts nix