PureBoard

Code: Alles auswählen

Define.i today, nextFriday

today = Date()
nextFriday = AddDate(today, #PB_Date_Day, ((12 - DayOfWeek(today)) % 7))

Debug "Die kommenden 8 Freitage:"
For i = 1 To 8
	Debug FormatDate("%dd.%mm.%yyyy", nextFriday)
	nextFriday = AddDate(nextFriday, #PB_Date_Week, 1)
Next

Code: Alles auswählen

Define Window, Event, Quit
Define Combo

#DAY_TO_SECONDS = 86400

Dim Freitag(8)

Window = OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, 200, 100, "Kommende Freitage", #PB_Window_SystemMenu)

Combo = ComboBoxGadget(#PB_Any, 20, 20, 160, 20)

If DayOfWeek(Date()) < 5
  Freitag(1) = Date() + ((5-DayOfWeek(Date())) * #DAY_TO_SECONDS)
ElseIf DayOfWeek(Date()) = 6
  Freitag(1) = Date() + (6*#DAY_TO_SECONDS)
ElseIf DayOfWeek(Date()) = 5
  ; Hier wäre der wirklich nächste Freitag
  Freitag(1) = Date() + (7*#DAY_TO_SECONDS)
  ; oder eben Heute
  ; Freitag(1) = Date()
EndIf

AddGadgetItem(Combo, 0, FormatDate("%dd.%mm", Freitag(1))  )
For i=2 To 8
  Freitag(i) = Freitag(i-1) + (7*#DAY_TO_SECONDS)
  Debug FormatDate("%dd.%mm", Freitag(i))
  AddGadgetItem(Combo, i-1, FormatDate("%dd.%mm", Freitag(i))  )
Next i

SetGadgetState(Combo, 0)

Repeat
  
  Event = WaitWindowEvent()
  
  If Event
    Select Event
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect
  EndIf
  
Until Quit > 0