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
搜图
编辑