Question

vb 中如何计算已知一个月的天数？

比如我现在知道日期为2009年2月3日
我如何能计算出2009年2月这个月有几天？

Answer 1

dim n as integer
n=2009
if n mod 4 <> 0 then
print "这个月有28天"
else
if n mod 100 = 0 then
if n mod 400 = 0 then
print "这个月有29天"
else
print "这个月有28天"
emd if
else
"这个月有29天"
end if
end if