vb高手进，求教育

显示全部楼层 · 2012-3-11 19:52:02

Private Sub form_load()
Dim rq1 As Date, rq2 As Date
Dim y As Integer, m As Integer, d As Integer, x As Integer
rq1 = #1/1/2013#
rq2 = Date
y = Year(rq2)
m = Month(rq2)
d = Day(rq2)
x = DateDiff("d", rq2, rq1)
Label1.Caption = "今天是" & y & "年" & m & "月" & d & "天"
Label2.Caption = "距离2013年元旦...

千问 · 2012-3-11 19:52:02

Private Sub form_load()
'Dim rq1 As Data, rq2 As Data 'Data 是数据格式 Date 才是日期格式，注意两个单词写法意义都不同
Dim rq1 As Date, rq2 As Date
Dim y As Integer, m As Integer, d As Integ...

千问 · 2012-3-11 19:52:02

Private Sub form_load()
Dim rq1 As Date, rq2 As Date
Dim y As Integer, m As Integer, d As Integer, x As Integer
rq1 = #1/1/2013#
rq2 = Date
y = Year(rq2)...

千问 · 2012-3-11 19:52:02

Private Sub form_load()
Dim rq1 As Date, rq2 As Date
rq1 = #1/1/2013#
rq2 = Date
Label1.Caption = Format(Date, "YYYY年M月DD日")
Label2.Caption = "距离2013年元旦还有" & Da...