主题：2月29日

dim y as integer = date.today.year

if y mod 4 = 0 then

msgbox("闰年")

end if