VBA代码 上中下旬2025年3月18日 10:08
Function 上中下旬(d)
Select Case Day(d)
Case 1 To 10
上中下旬 = "上旬"
Case 11 To 20
上中下旬 = "中旬"
Case 21 To 31
上中下旬 = "下旬"
End Select
End FunctionFunction 上中下旬(d)
Select Case Day(d)
Case 1 To 10
上中下旬 = "上旬"
Case 11 To 20
上中下旬 = "中旬"
Case 21 To 31
上中下旬 = "下旬"
End Select
End Function
全部回复（0）