学习VB编程第26天，时间函数做一个世界杯倒计时提示板

2022年世界杯倒计时提示板，2021年高考倒计时提示板，想要的后面有教程，也可以私信留邮箱免费发。

视频加载中...

今天学习了刘金玉老师零基础VB教程的第33期，学习的主要内容是日期时间类型。

一、Date日期时间类型

Time时间

Year年份

Month月份

Day一个月中的那一天

Hour小时

Minute分钟

Second秒

Weekday返回一周中的第几天

Cdate字符串类型转为日期时间类型

DateAdd日期时间增加或者减少函数

DateDiff 两个日期时间之间的差值（求差几秒、几分钟、几小时、几天、几个月、几年）

二、日期时间类型的申明和赋值

（一）两种表达时间的方法

声明一个日期时间类型Dim Dl as date

第一种武值方式：D1=#2013-01-01 12:13:14#

第二种武值方式：D1=cdate（"2013-01-01 12:13:14"）

（二）表达日期和时间案例分享

①求时间

Private Sub Command1_Click()

Print year（now）

Print mouth（now）

Print day（now）

Print hour（now）

Print minute（now）

Print second（now）

Print date

Print time

Dim d1 As Date

d1 = #2/23/2013 2:13:34 PM#

Print d1

Dim d2 As Date

d2 = CDate("2013-02-24 15:16:18 )

print d2

End Sub

②求时差函数

Private Sub Command1_Click()

Dim d1 As Date

d1 = #2/23/2013 2:13:34 PM#

Dim d2 As Date

d2 = CDate("2013-02-24 15:16:18")

Print DateDiff("s", d1, d2)

End Sub

③求前/后两天的时间

Private Sub Command1_Click()

Print Date & "" & Time

Print DateAdd("d", 2, Now)

Print DateAdd("d", -2, Now)

End Sub

④

（三）interval字符串表达式

interval字符串表达式，是所要加上去的时间间隔的单位,interval参数设定值说明。

yyy 年

q 季

m月

y一年的日数

d日数

w一周的日数

ww 周

h时

m分钟

S秒

三、做一个世界杯开幕倒计时提示板

①新建两个form窗体，如图新建并设置好控件

②输入代码

窗体一代码：

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Form_Load()

Label4.Caption = CDate("2022-11-21 00:00:00")

End Sub

Private Sub Timer1_Timer()

Label1.Caption = "现在是北京时间：" & Now

End Sub

Private Sub Timer2_Timer()

Dim s As Double

s = DateDiff("s", Now, CDate(Label4.Caption))

Dim d As Double

Dim h As Double

Dim m As Double

Dim se As Double

d = s 86400

h = (s - d * 86400) 3600

m = (s - d * 86400 - h * 3600) 60

se = s - d * 86400 - h * 3600 - m * 60

Label2.Caption = d & "天" & h & "时" & m & "分" & se & "秒"

End Sub

窗体二代码：

Private Sub Command1_Click()

Form1.Label4.Caption = CDate(Text1.Text)

Form2.Hide

End Sub

Private Sub Form_Load()

Text1.Text = CDate("2022-11-21 00:00:00")

End Sub

搜图

编辑