PureBoard

Verfasst: **03.02.2015 15:16**

ts-soft hat geschrieben:Update kommt wohl erst morgen, bin ein wenig ausgelastet (und das an nem Sonntag )

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 ?

Verfasst: **03.02.2015 16:36**

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

Verfasst: **03.02.2015 17:45**

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

PureBoard

Modul OwnGadget (PB5.2x)

Re: Modul OwnGadget (PB5.2x)

Re: Modul OwnGadget (PB5.2x)

Re: Modul OwnGadget (PB5.2x)