正是我想要的，哈�

我学的好像是“闰”年不是“润”年

If (yearb And 3) Or ((yearb Mod 400 = 0) Xor (yearb Mod 100 = 0)) Then
MsgBox "平年"
Else
MsgBox "润年"
End If

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000&
Private Sub Form_Load()
SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER 'Text1限制输入BUG
End Sub
*********************************************
防止Text1中输入其他的东东 出现错误，呵呵

这个我在ASP的程序中早就已经想到了，并且写成功了！

msgbox iif(
(yearb Mod 4 = 0 And yearb Mod 100 <> 0) Or (yearb Mod 400 = 0) ,"闰年","平年")

好东东

Function IsLeap(sYear As String) As Integer
If IsDate("02/29/" & sYear) Then
IsLeap = True
Else
IsLeap = False
End If
End Function

楼上，你源码都不发你有什么资格在这里说什么水平！
你幼儿园水平都没！有本事你上更好的。有本事吗？没对吧！你都没有发你 高水的源码。你有本事。你发、我看你水平有多高。