怎样连写日期
详细代码如下,工程文件在附件中,均已经有详细注释
--------------------此行以下为代码-------------------------
Public Class Time
Private Sub BCONFIRM_Click(ByVal sender As System。 Object, ByVal e As System。EventArgs) Handles BCONFIRM。Click
'按下Comfirm按钮
Dim Timenow As Date
'声明Timenow为Date类型
Timenow = Now()
'获取当前时间
LabelTime。 Tex...全部
详细代码如下,工程文件在附件中,均已经有详细注释
--------------------此行以下为代码-------------------------
Public Class Time
Private Sub BCONFIRM_Click(ByVal sender As System。
Object, ByVal e As System。EventArgs) Handles BCONFIRM。Click
'按下Comfirm按钮
Dim Timenow As Date
'声明Timenow为Date类型
Timenow = Now()
'获取当前时间
LabelTime。
Text = Format(Timenow, "yyyy-MM-dd hh:mm:ss")
'按照yyyy-MM-dd hh:mm:ss形式格式化字串,并在LabelTime控件中显示
LabelTimeE。
Text = Format(Timenow, "yyyyMMddhhmmss")
'按照yyyyMMddhhmmss形式格式化字串LabelTimeE控件中显示
End Sub
End Class
--------------------此行以上为代码-------------------------。
收起