PureBoard

Code: Alles auswählen

; 
; Datumsprüfung: Ist ein Feiertag/Wochenende vorliegt
; Free Code
; Purebasic v4.40b7
; 24.11.2009

; Beispiel
ddat = Date()                          ; Datum heute als Basis
datum = AddDate(ddat,#PB_Date_Day,1)   ; Welches Datum prüfen ? zB: wie hier: Morgen
; Begin Program:
pdatum$ = FormatDate("%dd.%mm.%yyyy",datum)   ; Format wie auf webseite (für suche)
Debug pdatum$ + " : Gefragtes Datum"  ; ** was zu sehen
;net$ = "http://www.nrw-live.de/link/feiertage-nrw.html"  ; Alternative Webseite für Feiertage
net$ = "http://www.schulferien.org/Feiertage/Feiertage_Nordrhein_Westfalen.html"  ; Feiertagsliste für NRW
tw = OpenWindow(#PB_Any, 0, 0, 600, 300, "WebGadget", #PB_Window_Invisible) ; Do not bother user with flickering explorer
If tw
  wg0 = WebGadget(#PB_Any, 10, 10, 580, 280, net$)
  Repeat
    Select WaitWindowEvent()
    Case #PB_Event_Gadget
      While GetGadgetAttribute(wg0, #PB_Web_Busy)  ; Warten bis seite geladen ist
        While WindowEvent(): Delay(1) : Wend
      Wend
      Break 
    EndSelect     
  ForEver
  a0$ = GetGadgetItemText(wg0,#PB_Web_HtmlCode)   ; lese den htmlcode aus dem webgadget
  Repeat
    tpos = FindString(a0$,pdatum$,1)                ; Datumssuche
    If tpos                                         ; gefunden
      Debug pdatum$ +" : Feiertag"    ; ** was zu sehen
      datum = AddDate(datum,#PB_Date_Day,1)         ; Feiertag: also +1 tag weiter
      pdatum$ = FormatDate("%dd.%mm.%yyyy",datum)   ; Format wie auf webseite (für suche)
      Continue                                     ; Das Nach-Feiertag-Datum auch prüfen
    Else                                           ; Kein Feiertag !
      If DayOfWeek(datum) >0 And DayOfWeek(datum) <6  ; Auch kein Wochenende ?
        Break                                     ; Kein Feiertag und kein WoEnde !! => Raus, fertig
      EndIf
    EndIf
    If DayOfWeek(datum) =0                        ; Es ist ein Sonntag 
      Debug pdatum$ + " : Sonntag"    ; ** was zu sehen
      datum = AddDate(datum,#PB_Date_Day,1)       ; Also +1 Tag auf Montag gehen
      pdatum$ = FormatDate("%dd.%mm.%yyyy",datum) ; Format wie auf webseite (für suche)
    ElseIf DayOfWeek(datum) =6                   ; Es ist ein Samstag 
      Debug pdatum$ + " : Samstag"    ; ** was zu sehen
      datum = AddDate(datum,#PB_Date_Day,2)       ; Also +2 Tag auf Montag gehen
      pdatum$ = FormatDate("%dd.%mm.%yyyy",datum) ; Format wie auf webseite (für suche)
    EndIf
  ForEver         ; Weiter prüfen bis zum Break
  CloseWindow(tw)
EndIf
Debug "Erster Werktag nach WE/Feiertag: " + FormatDate("%dd.%mm.%yyyy",datum)

Code: Alles auswählen

net$ = "http://www.schulferien.org/Feiertage/Feiertage_Nordrhein_Westfalen.html"  ; Feiertagsliste für NRW