VB中如何提取现在的年月日

Private Sub Form_Load()
Label1 = Date
End Sub

如果想用自己格式显示，就用format函数，如
label1=format(date,"yyyy年mm月dd日")
函数具体用法自己查下资料

用函数,我记得不是很清楚了,但好像年月日分别是有函数的

两种写法：
Private Sub Command1_Click()
Label1.Caption = Format(yyyy - mm - dd , Date)
Label1.Caption = Date
End Sub

label1=now()