ASP调用:
<%
dtmData = Now
response.write f_fmt_date(dtmData) & " " & f_fmt_time(dtmData)
%>
VB6调用:
Private Sub Command1_Click()
Dim dtmData As Date
dtmData = Now
Debug.Print f_fmt_date(dtmData) & " " & f_fmt_time(dtmData)
End Sub
运行结果:
2023-1-31 21:49:38
命名规范参考《VB6 变量前缀命名规范和把类型符放在变量的尾部 String$ Integer% Long& Single! Double# Currency@》
当然VB6也可以: