怎样用VB获得当前的电脑时间？

GetWindowPos 2003-10-27 08:26:55

还有当前日期，显示出来

...全文

976 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

onlyloney 2003-11-04

打赏
举报

MsgBox Time & " " & Date

lirh 2003-11-01

打赏
举报

Date 函数返回当前系统日期。
Day 函数返回 1 到 31 之间的一个整数（包括 1 和31），代表某月中的一天。
语法
Day(date)
date 参数是任意可以代表日期的表达式。如果 date 参数中包含 Null，则返回 Null。

Hour 函数

描述
返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。
语法
Hour(time)
time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null。

Minute 函数

描述
返回 0 到 59 之间的一个整数（包括 0 和59），代表一小时内的某一分钟。
语法
Minute(time)
time 参数是任意可以代表时间的表达式。如果 time 参数包含 Null，则返回 Null。

Year 函数

描述
返回一个代表某年的整数。
语法
Year(date)
date 参数是任意可以代表日期的参数。如果 date 参数中包含 Null，则返回 Null。

Month 函数

描述
返回 1 到 12 之间的一个整数（包括 1 和 12），代表一年中的某月。
语法
Month(date)
date 参数是任意可以代表日期的表达式。如果 date 参数中包含 Null，则返回 Null。

Second 函数

描述
返回 0 到 59 之间的一个整数（包括 1 和 59），代表一分钟内的某一秒。
语法
Second(time)
time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null。

Time 函数

描述
返回 Date 子类型 Variant，指示当前系统时间。
语法
Time

Weekday 函数

描述
返回代表一星期中某天的整数。
语法
Weekday(date, [firstdayofweek])
Weekday 函数的语法有以下参数：

参数描述
date 可以代表日期的任意表达式。如果 date 参数中包含 Null，则返回 Null。
firstdayofweek 指定星期中第一天的常数。如果省略，默认使用 vbSunday。

设置
firstdayofweek 参数有如下设置：
常数值描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

返回值
Weekday 函数返回如下值：
常数值描述
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

例子
Dim sT As String

sT = "现在时间是：" & Now & vbTab & "现在日期是：" & Date & vbTab & "现在时刻是:" & Time & vbCrLf
sT = sT & "年：" & Year(Date) & vbTab & "月：" & Month(Date) & vbTab & "日：" & Day(Date) & vbCrLf
sT = sT & "时:" & Hour(Time) & vbTab & "分：" & Minute(Time) & vbTab & "秒：" & Second(Time)

MsgBox sT