有奖(VBA): 怎么计算某年的总天数?

海珠-136

VBA不会，我想看看，怎么算的

xiaoni

gggggggggg

ban-s

<p></p><p>if a=0 then</p><p>numb=366</p><p>else</p><p>numb=365</p><p>end if </p><hide></hide>

[此贴子已经被作者于2010-9-21 13:26:41编辑过]

linyaya

占位学习

leenee

<p>这个问题比较郁闷，我找了好久</p>

mchyzh

<br/>

mchyzh

<p>Sub ts1()<br/>&nbsp;&nbsp;&nbsp; If Len(Range("a2")) &gt; 0 And IsNumeric(Range("a2")) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Range("a2") Mod 4 = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("b2") = 366&nbsp;&nbsp;&nbsp; '除以4为整数说明是闰年，366天<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("b2") = 365<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub<br/>Sub ts2()<br/>&nbsp;&nbsp;&nbsp; Dim First_day As Date<br/>&nbsp;&nbsp;&nbsp; Dim End_day As Date<br/>&nbsp;&nbsp;&nbsp; If Len(Range("a2")) &gt; 0 And IsNumeric(Range("a2")) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; First_day = Range("a2") &amp; "-1-1"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End_day = DateAdd("d", -1, Range("a2") + 1 &amp; "-1-1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("b2") = End_day - First_day + 1<br/>&nbsp;&nbsp;&nbsp; End If</p><p>End Sub</p>

flybenz

看看               

cmsong

看看                        

glhfgtd

学习强者，双手顶起