Find a piece of VB source code, use call to call, find the year of 2010 to 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