Question

用VB编写计算日期的程序

比如日期是2008.8.8起 到2009.8.8止 期间一共多少天。
这个怎么弄呢？直接输入2009.8.8就可以知道距离2008.8.8有多少天？求程序

Answer 1

Private Sub Command1_Click()
Dim dt As String
dt = InputBox("请输入截止日期：")
dt = Replace(dt, ".", "-")
If IsDate(dt) Then
MsgBox "距离当前日期还有：" & CDate(dt) - #8/8/2008# & "天"
Else
MsgBox "你输入的日期格式有误！"
End If
End Sub

Answer 2

直接在excel中输入=a1-b1. b1是开始日期，a1是截至日期

Answer 3

sub test()
dim dte1，dte2 as string
dte1=inputbox("输入起始日期")
dte2=inputbox("输入终止日期")
msgbox datediff("d",dte1,dte2),vbOkOnly,"结果"
end sub

Answer 4

startDate = InputBox("请输入起始日期")
endDate = InputBox("请输入起始日期")
Print DateDiff("d", startDate, endDate)

Answer 5

有函数的
VB不弄太多年了
在C#里面用timespan
VB上网搜索下