access里用來(lái)判定是否為閏年的sql語(yǔ)句？

Public Function Runnian(Shenr As Date) As String Dim yearNum As Integer '定義變量 yearNum = CInt(Val(Nz(Shenr))) '轉(zhuǎn)換數(shù)據(jù)類型

Runnian = IIf(IIf(yearNum Mod 100 = 0, yearNum / 100, yearNum) Mod 4 = 0, yearNum & "年是閏年", yearNum & "年是平年")

End Function