code46b.txt

VB大全（精华版）源代码

Dim TestStr As String
Dim TestTime As Date, TestDate As Date

TestTime = #17:04:23#
TestDate = #05/14/00#
TestStr = Format (TestTime, "Short Time")