求一段VB源代码，使用call调用，求2010至2050的润年

silencer

Private Sub Command1_Click()
Dim i       As Integer
Dim datTemp As Date

    For i = 2010 To 2050
        datTemp = GetLastDate_Month(DateSerial(i, 2, 1))
        If Day(datTemp) = 29 Then
            Debug.Print i
        End If
    Next i
End Sub

Private Function GetLastDate_Month(ByVal datDate As Date) As Date
    GetLastDate_Month = DateAdd("d", -Day(DateAdd("m", 1, datDate)), DateAdd("m", 1, datDate))
End Function

talent00168

Private Sub Command1_Click()
Dim i As Integer
With CreateObject("scripting.dictionary")
For i = 2010 To 2050
If Day(DateSerial(i, 3, 0)) = 29 Then .Add i, Nothing
Next
MsgBox Join(.keys, vbCrLf)
End With
End Sub