vb中year函數(shù)~~

答案補充：你的完整代碼是什么？

站在用戶的角度思考問題，與客戶深入溝通，找到申扎網(wǎng)站設計與申扎網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站設計制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、空間域名、網(wǎng)頁空間、企業(yè)郵箱。業(yè)務覆蓋申扎地區(qū)。

如果代碼是這樣的

Private Sub Form_Click()

d = Date

Label1.Caption = Str(d)

End Sub

就是輸出2004-12-25 這種格式的，不會只輸出2004啊。別告訴我Label寬度不夠啊～

這樣改。時間的格式是兩邊都加＃。

＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_Click()

d = #8/16/2004#

n = Year(d)

Label1.Caption = Str(n)

End Sub

vb中的year()函數(shù)怎么理解？ 例如：year(1)的結(jié)果為什么是：1899

year()函數(shù)用于輸出年份，正確用法：

Dim a As Date

a = "2011-2-10"

Print Year(a) '輸出結(jié)果：2011

如果a沒有賦值為一個確切日期，將會從1899-12-31開始計算：

Dim a As Date

a = 1

Print a '輸出結(jié)果：1899-12-31

Print Year(a) '輸出結(jié)果：1899

在vb.net中，如何計算出2000-2100年之間的閏年？輸出到文本框，并統(tǒng)計輸出閏年的個數(shù)？主要是統(tǒng)計個數(shù)

這樣：

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

Dim?leapyears()?As?Integer?=?GetLeapYears(2000,?2100)

Dim?str?As?String

Try

Dim?count?As?Integer?=?UBound(leapyears)?+?1

str?=?"閏年個數(shù):"?+?count.ToString

For?i?=?0?To?UBound(leapyears)

str?+=?"?"?+?leapyears(i).ToString

Next

TextBox1.Text?=?str

Catch?ex?As?Exception?

End?Try

End?Sub

'''?summary

'''?獲取指定年份區(qū)間中所有閏年組成的數(shù)組

'''?/summary

'''?param?name="StartYear"起始年份/param

'''?param?name="EndYear"結(jié)束年份/param

'''?returns/returns

'''?remarks/remarks

Private?Function?GetLeapYears(StartYear?As?Integer,?EndYear?As?Integer)?As?Integer()

Dim?leapyears()?As?Integer?=?Nothing

Dim?index?As?Integer?=?0

For?i?=?StartYear?To?EndYear

If?(i?Mod?400?=?0)?Or?(i?Mod?4?=?0?And?i?Mod?100??0)?Then

ReDim?Preserve?leapyears(index)

leapyears(index)?=?i

index?+=?1

End?If

Next

Return?leapyears

End?Function

擴展資料：

注意事項

DateSerial返回包含指定的年、月、日的 Variant (Date)。

語法：DateSerial(year, month, day)

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

If Len(Text1.Text) = 4 Then

? If MonthToLeapYear(Text1.Text) = True Then

? ? ? Print Text1.Text "年是閏年"

? Else

? ? ? Print Text1.Text "年是平年"

? End If

Else

?Print "錯誤：請輸入正確的年份！"

End If

End Sub

在VB.NET中進行日期處理時，避免手工判斷或計算是個好主意，因為手工計算由于代碼的質(zhì)量問題可能不準確。可以使用.NET提供的類的功能進行日期處理。

例如，如果需要判斷給定的某年是否閏年，可以使用VB.NET的IsLeapYear函數(shù)。下面是如何使用該函數(shù)的一個例子：

Private Sub LeapYearCheck()

Dim bLeapYear AsBoolean

bLeapYear = Date.IsLeapYear(Now.Year)

MessageBox.Show(bLeapYear)

bLeapYear = Date.IsLeapYear(2004)

MessageBox.Show(bLeapYear)

End Sub

vb.net獲取年，月，日，時，分，秒

不是 有 函數(shù)嘛？

now() 就是 吧

取得 后 再 分離出你所需的，分別賦值 就行了，當然 還是 有 函數(shù)的

分享標題：vb.net中的year vbnet date
分享路徑：http://www.chinadenli.net/article14/dohjsde.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供標簽優(yōu)化、網(wǎng)站策劃、做網(wǎng)站、網(wǎng)站內(nèi)鏈、網(wǎng)站設計、服務器托管

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)