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

VB里有好多时间函数，使用方法和excel类似，直接调用就好了，比如now显示当前时间，today表示当前日期，又如year年，month月，day日，hour小时（24小时制），minute分，second秒；

另外要想获得想要的时间格式，你需要一个格式函数Formart()，表示为formart(date,formart of date)，比如我想获得今天的日期并且用这种格式2015-08-31，那么函数是formart(now,"ddddd")，这里的ddddd就是格式符，想要获得全部的格式符可以百度“formart()函数使用“，我这里就不引用了，希望以上内容对你有帮助

Dim unix As DateTime = #1/1/1970#

unix = unixAddSeconds(CDbl("时间戳"))

MsgBox(unix)

'--------------------

百度VB2010(VBNET)吧建设发展中,需要你的支持和帮助!!!

快加入我们吧!发表你的疑问,经验,程序,分享

让我们共同进步!

Date函数：返回系统的日期。

Now函数：返回系统的日期和时间。

Format函数：根据格式表达式来格式化数据。

date()例子：在PHP中

<php

// 设定要用的默认时区。自 PHP 51 可用：

date_default_timezone_set('UTC');

// 输出类似：

Mondayecho date("l");

// 输出类似：

Monday 15th of August 2005 03:12:46 PMecho date('l dS \of F Y h:i:s A');

// 输出：July 1, 2000 is on a Saturdayecho "July 1, 2000 is on a "

date("l", mktime(0, 0, 0, 7, 1, 2000));

/ 在格式参数中使用常量 /

// 输出类似：Mon, 15 Aug 2005 15:12:46

UTCecho date(DATE_RFC822);

// 输出类似：2000-07-01T00:00:00+0000echo

date(DATE_ATOM, mktime(0, 0, 0, 7, 1, 2000));

>

扩展资料：

作用Date 函数可返回当前的系统日期。

提示：获取时间可参考Time()函数

语法

Date

实例

Dim MyDate

MyDate = Date   ' MyDate 的值为系统当前的日期(如：2010-07-03)。

说明

VB 中Date语句可以用于设置系统日期

如:

Date = "2012-8-8"  '这样就把当前系统日期改为2012-8-8了

Private Function strGetDate() As String

Dim Xml>

Private

Sub

Timer1_Timer()

text1

=

format(now(),"yyyy-mm-dd

tttt")

End

Sub

format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。

timer1interval的值大于0而小于等于1000之间的任意一个整数。

把窗体Hide过后，用过滤键盘（不是拦截）的API进行过滤，就可以得到了，这样的API百度一下

复制的：

Private Const WH_MOUSE = 7 '本地鼠标钩子

Private Const WH_KEYBOARD = 2 '本地键盘钩子

Private Const WH_MOUSE_LL = 14 '全局鼠标钩子

Private Const WH_KEYBOARD_LL = 13 '全局键盘钩子

Rem 钩子

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal IdHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Declare Function CallNextHookEx Lib "user32" (ByVal HHook As Long, ByVal nCode As Long, ByVal WParam As Long, LParam As Any) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal HHook As Long) As Long

Rem 内存

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Type POINTAPI '坐标结构

X As Long 'x坐标

Y As Long 'y坐标

End Type

Private Type MSLLHOOKSTRUCT '全局鼠标钩子结构

pt As POINTAPI '相对于屏幕左上角的坐标x,y

mouseData As Long '鼠标数据

flags As Long '标记

time As Long '时间戳

dwExtraInfo As Long '其他信息

End Type

Private Type KBDLLHOOKSTRUCT '全局键盘钩子结构

vkCode As Long 'vkCode为虚拟键码

scanCode As Long 'scanCode为扫描码

flags As Long 'flags为功能键状态

time As Long '时间戳

dwExtraInfo As Long '扩展信息？

End Type

Private Type EVENTMSG

vKey As Long

sKey As Long

flag As Long

time As Long

End Type

Private Type MOUSEHOOKSTRUCT '本地鼠标钩子结构

pt As POINTAPI '相对于屏幕左上角的坐标x,y

hwnd As Long '鼠标光标下窗口的句柄

wHitTestCode As Long '鼠标光标在窗口中的位置，标题栏、左边框、右边框，下边框。。。

dwExtraInfo As Long '其他信息，通常为0

End Type

'-----------+

Private Const WM_LBUTTONDOWN = &H201 '窗口中按下鼠标左键

Private Const WM_LBUTTONUP = &H202 '窗口中松开鼠标左键

Private Const WM_MOUSEMOVE = &H200 '窗口中移动鼠标

Private Const WM_RBUTTONDOWN = &H204 '窗口中按下鼠标右键

Private Const WM_RBUTTONUP = &H205 '窗口中松开鼠标右键

Private Const WM_MOUSEWHEEL = &H20A '鼠标滚轮

Private Const WM_NCLBUTTONDOWN = &HA1 '窗口标题栏中按下鼠标左键

Private Const WM_NCLBUTTONUP = &HA2 '窗口标题栏中左开鼠标左键

Private Const WM_NCMOUSEMOVE = &HA0 '窗口标题栏中移动鼠标

Private Const WM_NCRBUTTONDOWN = &HA4 '窗口标题栏中按下鼠标右键

Private Const WM_NCRBUTTONUP = &HA5 '窗口标题栏中松开鼠标右键

Private Const WM_KEYDOWN = &H100 '键盘按下

Private Const WM_KEYUP = &H101 '键盘d起

'-----------+

Private HHook As Long '声明钩子

Dim xs_a As Boolean

Dim xs_b As Boolean

Dim xs_Msouse As MSLLHOOKSTRUCT

Dim xs_Key As EVENTMSG

Private Function Hook_Func(ByVal IdHook As Long, ByVal WParam As Long, ByVal LParam As Long) As Long

If xs_a Then

CopyMemory xs_Msouse, ByVal LParam, Len(xs_Msouse)

'DebugPrint "当前鼠标位置- x:" & xs_MsouseptX & "; y:" & xs_MsouseptY

Select Case WParam

Case WM_LBUTTONDOWN, WM_NCLBUTTONDOWN

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY & "|Left_Down" '"左键按下"

Case WM_LBUTTONUP, WM_NCLBUTTONUP

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY & "|Left_Up" '"左键d起"

Case WM_RBUTTONDOWN, WM_NCRBUTTONDOWN

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY & "|Rieft_Down" '"右键按下"

Case WM_RBUTTONUP, WM_NCRBUTTONUP

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY & "|Rieft_Up" '"右键d起"

Case WM_MOUSEMOVE, WM_NCMOUSEMOVE

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY

Case WM_MOUSEWHEEL

DebugPrint xs_MsouseptX & "|" & xs_MsouseptY & "|xxxx_Down" & "|" & xs_MsousemouseData '"鼠标滚轮"

End Select

Else

If IdHook = 0 Then

If WParam = WM_KEYDOWN Then '在这里wParam 表示键盘事件，具体的按键信息保存在lParam 指针所指向的内存区域中

'把内存中lParam 指针所指向的数据复制到xs_Key这个自定义类型

CopyMemory xs_Key, ByVal LParam, Len(xs_Key)

'你要做的事情

DebugPrint xs_KeysKey & "|" & xs_KeyvKey & "|" & Chr(xs_KeyvKey)

End If

End If

End If

If xs_b Then

Hook_Func = CallNextHookEx(HHook, IdHook, WParam, ByVal LParam)

Else

Hook_Func = -1

End If

End Function

Public Function aaa(Optional ByVal x_a As Long = -1, Optional ByVal x_b As Boolean = True)

If x_a > -1 Then

xs_a = x_a '初始化

xs_b = x_b '初始化

If HHook <> 0 Then aaa

If xs_a Then

HHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf Hook_Func, ApphInstance, 0) '装载鼠标钩子

Else

HHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf Hook_Func, ApphInstance, 0) '装载键盘钩子

End If

Else

If HHook <> 0 Then

UnhookWindowsHookEx HHook '卸载

HHook = 0 '初始化

End If

End If

End Function

'这个只是测试的

‘调用方法是：

'aaa 卸载

'aaa 0 监控键盘

'aaa 1 监控鼠标

'结果于立即窗口显示

下列代码不用任何控件就能从国家授时中心网页获取时间获得网络时间。

Function NetTime(Optional url As String) As String '返回包括时间和日期的字符串

Dim obj, OBJStatus, Retrieval

Dim GetText As String

Dim i As Long

Dim myDate As Date

Set Retrieval = CreateObject("MicrosoftXML>

以上就是关于vb 获取网络时间较快的代码全部的内容，包括:vb 获取网络时间较快的代码、vb怎么获取北京时间、vb.net 如何将时间戳转化为date类型等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！