Wochenstart und -Ende anhand eines Datums bestimmen (Access VBA, Array)

getWeek.vb

' 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
    
    wochentag = Weekday(datum, vbMonday)
    
    wStart = DateAdd("d", (wochentag - 1) * -1, datum)
    wEnde = DateAdd("d", 7 - wochentag, datum)
    
    result(0) = wStart
    result(1) = wEnde
    
    getWeek = result
End Function