vb高手进，求教育

首先，您的rq1和rq2得声明为Date类型
以下是在VB.NET中写的代码，可能有部分属性或方法与VB有差异，稍做修改即可哈
Dim rq1 As Date, rq2 As Date
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 = Today '取得当前日期

y = Year(rq1) - Year(rq2) - 1 '相差几年到2013年
m = 12 - Month(rq2) '相差几月到年底
d = 30 - rq2.Day '相差几天到月底
Label1.Text = "今天是" & Year(rq2) & "年" & Month(rq2) & "月" & rq2.Day & "日"
x = y * 365 + m * 30 + d '换算成为天数
Label2.Text = "距离2013年元旦还有" & x & "天" x = y * 365 + m * 30 + d
Label2.Text = "距离2013年元旦还有" & x & "天"
在VB中，label有caption属性而非Text，所以还得楼主修改修改哈，祝好运～

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 = rq1 - rq2
Label1.Caption = "今天是" & y & "年" & m & "月" & d & "天"
Label2.Caption = "距离2013年元旦还有" & x & "天"
End Sub