VB编程如何求总天数

Private Sub Command1_Click()
Dim x As Date
Dim n As String
x = InputBox("输入日期", "", "2009-01-11")
n = Left(x, 4)
MsgBox DateDiff("d", n & "-01-01", x) + 1
End Sub

调用时间函数就行了啊。

Private Sub Command1_Click()
Dim T As Date
T = InputBox("输入日期", , "2009-01-11")
Print CStr(T) & "是当年第" & DateValue(T) - DateValue(Year(T) & "-1-1") + 1 & "天"
End Sub

Private Sub Form_Load()
Dim date1 As Date
date1 = #1/11/2009#
MsgBox Format(date1, "y")
End Sub

呵呵~ 楼上都正确地给了 无聊ING 也写了个长点的 放上来 哈 希望有助于你的学习：
Private Sub Command1_Click()
Dim ts As String
ts = InputBox("输入日期", "输入日期", "2009-01-11")
Dim n As Integer
n = 0
Dim y, m, d As Integer
y = Int(Left(ts, 4))
m = Int(Mid(ts, 6, 2))
d = Int(Right(ts, 2))
Dim a
a =