Question

我有一个像下面这样的函数。我需要将它转换为子程序。或者有没有办法从子程序中调用这个函数？

'function to calculate nth specific last day of a month like  last saturday or last monday   

Function LastDayOfMonth(Which_Day As String, Which_Date As String) As Date

    Dim i As Integer
    Dim iDay As Integer
    Dim iDaysInMonth As Integer
    Dim FullDateNew As Date

    Which_Date = CDate(Which_Date)

    Select Case UCase(Which_Day)
        Case "SUN"
            iDay = 1
        Case "MON"
            iDay = 2
        Case "TUE"
            iDay = 3
        Case "WED"
            iDay = 4
        Case "THU"
            iDay = 5
        Case "FRI"
            iDay = 6
        Case "SAT"
            iDay = 7
    End Select

    iDaysInMonth = Day(DateAdd("d", -1,DateSerial(Year(Which_Date),Month(Which_Date)+ 1, 1))) 
    FullDateNew = DateSerial(Year(Which_Date), Month(Which_Date), iDaysInMonth)

    For i = 0 To iDaysInMonth
        If Weekday(FullDateNew - i) = iDay Then
           LastDayOfMonth = FullDateNew - i
          Exit For
       End If
    Next i
End Function

Answer 1

sub callit()
    Dim d as Date
    d = LastDayOfMonth(...)
end sub

将函数转换为子例程excel vba

1 个答案: