7,763
社区成员
发帖
与我相关
我的任务
分享
function runnian(byval year as integer) as boolean
if year mod 400 = 0 then
runnian = true
elseif year mod 4 =0 and year mod 100 <> 0 then
runnian = true
else
runnian = false
end if
end function
private sub form_load()
dim i as integer
for i = 2000 to 2100
if runnian(i) then
debug.print i
end if
next
end sub