vb 中如何計(jì)算已知一個(gè)月的天數(shù)？

dim n as integer

目前成都創(chuàng)新互聯(lián)公司已為成百上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、博白網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

n=2009

if n mod 4 0 then

print "這個(gè)月有28天"

else

if n mod 100 = 0 then

if n mod 400 = 0 then

print "這個(gè)月有29天"

else

print "這個(gè)月有28天"

emd if

else

"這個(gè)月有29天"

end if

end if

VB怎樣獲取指定年月的天數(shù)

datestr=now() '取當(dāng)前系統(tǒng)日期

sday=year(datestr)"-"month(datestr)"-1" '當(dāng)前月第一天

eday=DateAdd("m", 1, sday) '增加一個(gè)月時(shí)間

eday=DateAdd("d", -1, eday) '減去一天就是月末日期

eday=day(eday) '得到當(dāng)月天數(shù)

在VB.NET中如何確定兩個(gè)日期之間的天數(shù)

在應(yīng)用開發(fā)中，開發(fā)人員經(jīng)常要進(jìn)行各種各樣的日期處理。如果你需要一種簡單的方法來計(jì)算出給定兩個(gè)日期間的天數(shù)，不妨考慮使用VB.NET中的TimeSpan對(duì)象。 列表A向你演示了如何使用TimeSpan對(duì)象來獲得兩個(gè)日期間的時(shí)間值。今后，你可以使用Subtract方法來獲得兩個(gè)日期間的實(shí)際天數(shù)。 關(guān)于列表A的一些說明 首先，我們聲明一個(gè)Date類型的變量dtStartDate，并賦初值為2007年一月一日。同時(shí)，還聲明了其它一些將會(huì)用到的變量，包括：TimeSpan的一個(gè)實(shí)例tsTimeSpan，整型數(shù)iNumberOfDays，字符串型變量strMsgText。設(shè)定變量tsTimeSpan的值為當(dāng)前日期/時(shí)間值與dtStartDate值得差。 為了計(jì)算出當(dāng)前日期/時(shí)間（Now）與dtStartDate之間的天數(shù)，我們使用TimeSpan對(duì)象的Days屬性，設(shè)定它的值為iNumberOfDays 。查看本文來源

vb 統(tǒng)計(jì)各個(gè)月份的天數(shù)

算法的思路：

1，要獲得一年中各個(gè)月的天數(shù)，這樣就要判斷平年還是閏年，好在你這里不需要2月份的天數(shù)。所以預(yù)先定義：

月份 天數(shù)

8月 31

9月 30

10月 31

11月 30

12月 31

1月 31

2，找規(guī)律：

在 9月12日 那一行的天數(shù)是： 8月的天數(shù)31-12+12=31

在10月12日 那一行的天數(shù)是： 9月的天數(shù)30-12+12=30

在11月12日 那一行的天數(shù)是：10月的天數(shù)31-12+12=31

在12月12日 那一行的天數(shù)是：11月的天數(shù)30-12+12=30

在 1月12日 那一行的天數(shù)是：12月的天數(shù)31-12+12=31

在 2月12日 那一行的天數(shù)是： 1月的天數(shù)31-12+12=31

3，歸納：

1，每個(gè)月12日那一行，統(tǒng)計(jì)的天數(shù)，是上一月的整個(gè)月份的總天數(shù)。

2，注意：平年與閏年的2月份的天數(shù)不一樣分別為28和29天。

通過分析，尋找規(guī)律，問題就變得很簡單了。

Dim yd(6) As Integer

Dim i As Integer

yd(1) = 31 '8月份的總天數(shù)

yd(2) = 30 '9月份的總天數(shù)

yd(3) = 31 '10月份的總天數(shù)

yd(4) = 30 '11月份的總天數(shù)

yd(5) = 31 '12月份的總天數(shù)

yd(6) = 31 '1月份的總天數(shù)

For i = 1 To 6

Print yd(i)

Next i

vb輸入年份與月份，輸出這個(gè)月的天數(shù)

Private?Sub?Form_Click()?'點(diǎn)擊窗體運(yùn)行

Dim?yy?As?Integer,?mm?As?Integer

yy?=?Int(Val(InputBox("請(qǐng)輸入年份")))

mm?=?Int(Val(InputBox("請(qǐng)輸入月份")))

If?mm??0?And?mm??13?Then

MsgBox?yy??"年"??mm??"月共有"??Day(DateSerial(yy,?mm?+?1,?0))??"天"

Else

MsgBox?"輸入有誤！"

End?If

End?Sub