vba - 获得上周五日期的巧妙方法

Question

无论我在哪一天调用该函数。

我知道我可以写一个 select case weekday(now) 语句，只是想知道是否有更简洁的方法？

Answer 1

这是否有助于您入门？我只是对其进行了快速测试，似乎工作正常。

Private Sub LastFriday()

    Dim iWeekday As Integer, LastFridayDate As Date

    iWeekday = Weekday(Now(), vbFriday)

    LastFridayDate = Format(Now - (iWeekday - 1), "dd-mmm-yy")

End Sub