答案补充:你的完整代码是什么?
站在用户的角度思考问题,与客户深入沟通,找到申扎网站设计与申扎网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站设计制作、做网站、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖申扎地区。
如果代码是这样的
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
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
这样:
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
不是 有 函数嘛?
now() 就是 吧
取得 后 再 分离出你所需的,分别赋值 就行了,当然 还是 有 函数的