vb 获取网络时间较快的代码

直接用vb转换GMT时间

Private Function getWebDatetime() As String

Dim Xml>

Set Xml>

Xml>

Xml>

getWebDatetime = CDate(1 / 3 + CDbl(CDate(Mid$(Xml>

Set Xml>

End Function

扩展资料：

读取网站服务器返回的时间的代码

Private Function getWebDatetime() As String

Dim Xml>

Set Xml>

Xml>

Xml>

Set objJs = CreateObject("msscriptcontrolscriptcontrol")

objJsLanguage = "jScript"

getWebDatetime = objJsEval("var dt = new Date('" & Xml>

Set Xml>

Set objJs = Nothing

End Function

两种方式自己选用
Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
Dim s As String
s = DateTimeTodayYear()
s = s & DateTimeTodayMonth()
s = s & DateTimeTodayDay()
s = s & DateTimeNowHour()
s = s & DateTimeNowMinute()
s = s & DateTimeNowSecond()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button2Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub

日期：DateTimeNowToShortDateString
时间：DateTimeNowToFileTime
可以这样用：
ResponseWrite(DateTimeNowToShortDateString() + "
");
ResponseWrite(DateTimeNowToShortTimeString() + "
");
输出：
2007-1-29
8:49
ResponseWrite(DateTimeNowToLongDateString() + "
");
ResponseWrite(DateTimeNowToLongTimeString() + "
");
输出：
2007年1月29日
8:49:15
不知合不合你要求
我是要VS2005下使用，很好用。可查看MSDN以下简单例出：
NET Framework 类库
DateTime 成员
请参见 构造函数 字段 方法 属性 显式接口实现
全部折叠 全部展开 成员选项：全部显示 成员选项：已筛选
包括继承的成员
包括受保护的成员
仅 NET Compact Framework 成员
表示时间上的一刻，通常以日期和当天的时间表示。
下表列出了由 DateTime 类型公开的成员。
公共构造函数
名称 说明
DateTime 已重载。初始化 DateTime 结构的新实例。
页首
公共字段
名称 说明
MaxValue 表示 DateTime 的最大可能值。此字段为只读。
MinValue 表示 DateTime 的最小可能值。此字段为只读。
页首
公共属性
名称 说明
Date 获取此实例的日期部分。
Day 获取此实例所表示的日期为该月中的第几天。
DayOfWeek 获取此实例所表示的日期是星期几。
DayOfYear 获取此实例所表示的日期是该年中的第几天。
Hour 获取此实例所表示日期的小时部分。
Kind 获取一个值，该值指示由此实例表示的时间是基于本地时间、协调通用时间 (UTC)，还是两者皆否。
Millisecond 获取此实例所表示日期的毫秒部分。
Minute 获取此实例所表示日期的分钟部分。
Month 获取此实例所表示日期的月份部分。
Now 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为本地时间。
Second 获取此实例所表示日期的秒部分。
Ticks 获取表示此实例的日期和时间的刻度数。
TimeOfDay 获取此实例的当天的时间。
Today 获取当前日期。
UtcNow 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为协调通用时间 (UTC)。
Year 获取此实例所表示日期的年份部分。

Private
Sub
Timer1_Timer()
text1
=
format(now(),"yyyy-mm-dd
tttt")
End
Sub
format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。
timer1interval的值大于0而小于等于1000之间的任意一个整数。

---