Sub ʱʽ()

'VB6.0VBAдд
MsgBox Format(Now(), "yyyymmddhhmmss") 'ꡢ//ʱ֡
MsgBox Format(Now(), "yyyymmddHHmmss") 'ꡢ//ʱ֡

'VSTOдд
 Dim RQ_SJ As String = String.Format("{0: yyyyMMddHHmmss}", Now())
        MsgBox(RQ_SJ,, "ǰʱʽ")J 
  ʾ20250422012230
End Sub
