请问有没有函数可以实现把时间转化成一个字符串

Question

Private Sub Timer1_Timer()For i = 1 To Len(Now)
   If IsNumeric(Mid$(Now, i, 1)) Then
      strtemp = strtemp + Mid$(Now, i, 1)
   End If
Next i
Print strtemp
End Subtimer的interval=1000

Answer 1

Private Sub Form_Load()
Dim strDate As String
Dim rePorts As String
   strDate = "2002年6月6日12点33分50秒"
    For i = 1 To Len(strDate)
       If IsNumeric(Mid$(strDate, i, 1)) Then
          rePorts = rePorts + Mid$(strDate, i, 1)
       End If
    Next i
    Debug.Print rePorts
End Sub

Answer 2

junwhj() 的答案与本人相同。

Answer 3

但是，纠正一下：应该是Format(Now(), "yyyyMMddhhmmss"),其中大写MM表示月份，小写mm表示分钟。
另外，要得到这种格式 “2002年6月6日12点33分50秒 星期三”可以用：
Format(Now(), "yyyy年M月d日 HH时mm分ss秒 dddd")

Answer 4

再补充一点，其中hh表示12小时制，建议换成HH，即24小时制，否则还要注明上午还是下午，麻烦。

Answer 5

如果你需要得到当前的系统时间，同意junwhj()：
Format(Now(), "yyyymmddhhmmss")
如果时间是你自己构造的字符串，那么就应该使用 lihonggen0(李洪根,用VB，标准答案来了)的方法。

Answer 6

dim nowdate as date
    nowdate=now
    print cstr(nowdate)

Answer 7

一个很简单的函数就搞定了
当然了你不用TIMER控件
用TIME函数就可以搞定时间了
即T=TIME
即可
或者用RIGTH（NOW，8）
提取当前时间八个字符呀
str$(时间表达式)

Answer 8

junwhj() 的答案与本人相同。