vb中year函数~~

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

如果代码是这样的

Private Sub Form_Click()

d = Date

Label1Caption = Str(d)

End Sub

就是输出2004-12-25 这种格式的，不会只输出2004啊。别告诉我Label宽度不够啊～

这样改。时间的格式是两边都加＃。

＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_Click()

d = #8/16/2004#

n = Year(d)

Label1Caption = Str(n)

End Sub

我的正则表达式和你的不太一样，给你参考一下：With

CreateObject("vbscriptregexp")

Global

=

True

Pattern

=

"(\d{4})年"

Set

pznn

=

Execute(SelectionText)

For

Each

m

In

pznn

MsgBox

mValue,

0,

"Found

Match"

Next

End

With 运行结果截图：

简单的——Label3Caption = DateSerial(Year(Date) - 1, Month(Date), Day(Date)) 就解决了。

这样写就是结果里没有年月日的字样了。。。。。2012-1-14

下面的有说明

p = Year(Date) '取出当前年份

o = Month(Date) '取出当前月份

i = Day(Date) '取出当前日期

x = p - 1 '计算去年年份

Label1Caption = p & "年" & o & "月" & i & "日" '写出当前日期

Label2Caption = "去年是今日" & x & "年" & o & "月" & i & "日" '写出去年日期

如果要随处用，楼主记得去在代码前面先检测闰年的问题就可以了。

Private Sub Command1_Click()

Dim y%, m%, d%

y = Val(InputBox("请输入年份!"))

m = Val(InputBox("请输入月份!"))

d = Val(InputBox("请输入日"))

MsgBox "这是今年的第" & DateDiff("d", DateSerial(y, 1, 1), DateSerial(y, m, d)) + 1 & "天!"

End Sub

以上就是关于vb中year函数~~全部的内容，包括:vb中year函数~~、怎么用VB正则法提取2010年中的年份【2010】这四个数字，谢谢、vb 去年的今天 怎么表示等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！