本文介绍了一个用于计算指定日期对应星期几的VBA函数。该函数通过输入年份、月份和日期，返回对应的星期数值，便于进行日历相关计算。
It seems feasible .
Function myweekday(ByVal y As Long, ByVal m As Long, ByVal d As Long) As Long Dim bias As Long If m > 2 Then bias = m - 2 Else bias = 10 + m y = y - 1 End If myweekday = (d + (13 * bias - 1) \ 5 + (y Mod 100) + (y Mod 100) \ 4 + (y \ 100) \ 4 - 2 * (y \ 100)) Mod 7 + 1 End Function
扫一扫
278
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
