vb中year函数~~

答案补充：你的完整代码是什么？

站在用户的角度思考问题，与客户深入沟通，找到申扎网站设计与申扎网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、做网站、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖申扎地区。

如果代码是这样的

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()函数怎么理解？ 例如：year(1)的结果为什么是：1899

year()函数用于输出年份，正确用法：

Dim a As Date

a = "2011-2-10"

Print Year(a) '输出结果：2011

如果a没有赋值为一个确切日期，将会从1899-12-31开始计算：

Dim a As Date

a = 1

Print a '输出结果：1899-12-31

Print Year(a) '输出结果：1899

在vb.net中，如何计算出2000-2100年之间的闰年？输出到文本框，并统计输出闰年的个数？主要是统计个数

这样：

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 = "闰年个数:" + 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

''' 获取指定年份区间中所有闰年组成的数组

''' /summary

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

''' param name="EndYear"结束年份/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中进行日期处理时，避免手工判断或计算是个好主意，因为手工计算由于代码的质量问题可能不准确。可以使用.NET提供的类的功能进行日期处理。

例如，如果需要判断给定的某年是否闰年，可以使用VB.NET的IsLeapYear函数。下面是如何使用该函数的一个例子：

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获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的

网站名称：vb.net中的year vbnet date
文章来源：http://pwwzsj.com/article/dohjsde.html