weipah

' Aufruf
Dim tage() As String
tage = getWeek(textbox.text)

Function getWeek(datum As String) As Variant
    'Dim datum As String
    Dim result(1) As String
    Dim wochentag As Integer
    Dim wStart As String
    Dim wEnde As String