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

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

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

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

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

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

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

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

在應(yīng)用開發(fā)中，開發(fā)人員經(jīng)常要進(jìn)行各種各樣的日期處理。如果你需要一種簡單的方法來計算出給定兩個日期間的天數(shù)，不妨考慮使用VB.NET中的TimeSpan對象。

關(guān)于列表A的一些說明

首先，我們聲明一個Date類型的變量dtStartDate，并賦初值為2007年一月一日。同時，還聲明了其它一些將會用到的變量，包括：TimeSpan的一個實例tsTimeSpan，整型數(shù)iNumberOfDays，字符串型變量strMsgText。設(shè)定變量tsTimeSpan的值為當(dāng)前日期/時間值與dtStartDate值得差。

為了計算出當(dāng)前日期/時間（Now）與dtStartDate之間的天數(shù)，我們使用TimeSpan對象的Days屬性，設(shè)定它的值為iNumberOfDays 。

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

Private?Sub?Form_Click()?'點擊窗體運行

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

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

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

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

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

Else

MsgBox?"輸入有誤！"

End?If

End?Sub

vb給出月份判斷是什么季節(jié)和該月有多少天怎么做啊

這個方法返回月份的天數(shù)第一個參數(shù)是年，第二個參數(shù)是月Private Function CountDay(Year As Integer, Month As Integer) As Integer

Dim count As Integer

count = -1

If Month = 1 Or Month = 3 Or Month = 5 Or Month = 7 Or Month = 8 Or Month = 10 Or Month = 12 Then

count = 31

ElseIf Month = 4 Or Month = 6 Or Month = 9 Or Month = 11 Then

count = 30

Else

If Year Mod 4 = 0 And Year Mod 100 0 Or Year Mod 400 = 0 Then

count = 29

Else

count = 28

End If

End If

CountDay = count

End Function 關(guān)于判斷季節(jié)的就簡單了 1-3月為春天 4-6月為夏天 7-9月為秋天 10-12為冬天寫個if語句判斷一下就好了