如何在ssis包中的变量中获取当前周星期一的日期

Imports System
Imports System.Data
Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain
    Inherits UserComponent

    Public Overrides Sub PreExecute()
        MyBase.PreExecute()

        Dim currentDate As DateTime = DateTime.Now
        Dim currentDayOfWeek As Integer = currentDate.DayOfWeek

        Dim daysToAdd As Integer = 1 - currentDayOfWeek
        If currentDayOfWeek = DayOfWeek.Sunday Then
            daysToAdd = -6
        End If

        Dim currentWeekMonday As DateTime = currentDate.AddDays(daysToAdd)
        Me.Variables.CurrentWeekMonday = currentWeekMonday
    End Sub

    Public Overrides Sub PostExecute()
        MyBase.PostExecute()
    End Sub

    Public Overrides Sub CreateNewOutputRows()
    End Sub

End Class