Time

应用示例

'!TITLE "获取当前时间"
' 获取、显示当前时间
Sub Sample_Time

  Dim aaa As String

  ’ 在aaa中代入当前时间
  aaa = Time

  ' 在讯息输出视窗中显示当前时间
  PrintDbg aaa

End Sub