求VB高手怎样用VB做一个毫秒级时钟

VB使用的是计算机的内置时钟,它每秒产生18次

虽然是毫秒级,但是它的精确度只有1000/18(5556)毫秒,你设置数字再低也都没有用(虽然你可以设置)

所以,如果你要达到真正的毫秒级,也就是精确到毫秒,是不可能的

日期：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

获取此实例所表示日期的年份部分。

日期：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

获取此实例所表示日期的年份部分。

使用Windows API函数 timeGetTime() 就可以获得从开机以来到现在所经过的时间（毫秒级别）

事件1时 设定一个变量A = timeGetTime()

事件2时 interval = timeGetTime() - A 就是你要的间隔时间

细节如下：

1 API 的声明：

Private Declare Function timeGetTime Lib "winmmdll" Alias "timeGetTime" () As Long 注：如果以上的声明放在「一般模块」底下， 应将 Declare 之前的 Private 保留字去掉。

2 程序范例：

Dim A As Long

Private sub form1_click()

A = timeGetTime()

end sub

private sub cmd1_click()

time = timeGetTime() - A

end sub

vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()

now()获取系统当前日期和时间，如：2015-12-12 22：23：34

time()获取系统的时间，如：22：23：34不显示当前日期

date()获得系统的日期，如：2015-12-12

Private Sub Command1_Click()

MsgBox Now()

MsgBox Time()

MsgBox Date

End Sub

以上就是关于求VB高手怎样用VB做一个毫秒级时钟全部的内容，包括:求VB高手怎样用VB做一个毫秒级时钟、在VB中如何获取系统时间、用VB怎么获取系统时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！