vb.net 如何获取时间

两种方式自己选用

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

应该是m吧minutes

datediff("m",t,date)

其中的参数"m"

返回分数,t代表运行时间

,now

代表运行时间

取的是t

与

now

的

间隔分钟数

,

-----

解释下面的

datediff("s",t,date)

其中的参数"s"

返回秒数,t代表运行时间

,now

代表运行时间

取的是t

与

now

的

间隔秒数

---显示秒的

dim

t

as

date

private

sub

form_load()

t

=

now

timer1interval

=

1

timer1enabled

=

true

end

sub

private

sub

timer1_timer()

timer1interval

=

1000

'加快了显示速度

dim

i

as

integer,

h

as

integer,

m

as

integer,

s

as

integer

i

=

datediff("s",

t,

now)

'我只改了这一句

h

=

i

\

3600'按照进率问题,3600秒=

1小时

m

=

i

\

60'按照进率问题,60秒=一分

s

=

i

mod

60

label1caption

=

"程序已经运行"

&

h

&

"小时"

&

m

&

"分钟"

&

s

&

"秒"

end

sub

返回开机以来经历的时间（以毫秒计）

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

或者返回系统当前时间（精确到毫秒）

Public Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)

Public Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

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

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转换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.net 如何获取时间全部的内容，包括:vb.net 如何获取时间、VB显示当前程序运行时间、vb中怎样精确计时，精确到ms等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！