如何用VB代码求得某个日期在两个日期之前还是之中还是之后

来源：百度知道 编辑：UC知道 时间：2024/06/03 09:45:37
比如用VB代码计算出2007年2月20日在2007年5月8日之前，2007年9月10日在2007年5月8日之后在2008年9月20日之前

Private Sub Command1_Click()
Dim d1 As Date, d2 As Date, d3 As String, S As String
d1 = #5/8/2007#
d2 = #9/20/2008#
S = InputBox("请输入日期：")
d3 = CDate(S)
If d3 < d1 Then
MsgBox S & "在" & d1 & "和" & d2 & "之前"
End If
If d3 > d2 Then
MsgBox S & "在" & d1 & "和" & d2 & "之后"
End If
If d3 >= d1 And d3 <= d2 Then
MsgBox S & "在" & d1 & "和" & d2 & "之间"
End If

End Sub

日期格式是可以相减的 你再试试 用两个日期相减

Private Sub Command1_Click()
Dim d1 As Date, d2 As Date, d3 As String, S As String
d1 = #5/8/2007#
d2 = #9/20/2008#
S = InputBox("请输入日期：")
d3 = CDate(S)
If d3 - d1<0 Then
MsgBox S & "在" & d1 & "和" & d2 & "之前"
elseIf d2 -d3>0 Then
MsgBox S & "在" & d1 & "和" & d2 & "之后"
else