VBA (Date Required & Order Date) で 2 つの日付を比較する関数を作成しようとすると、必要な日付が注文日より前の場合、エラーが発生するはずです。
4702 次
3 に答える
3
私の最初のコメントに加えて、ここに日付比較のための4つの例があります
'~~> Direct Date Comparision
Sub Sample1()
Dim dt1 As Date, dt2 As Date
dt1 = #12/12/2014#
dt2 = #12/12/2013#
Debug.Print IsGreater(dt1, dt2)
End Sub
'~~> Converting string to date and directly comparing
Sub Sample2()
Dim dt1 As String, dt2 As String
dt1 = "12/12/2014"
dt2 = "12/12/2013"
Debug.Print IsGreater(CDate(dt1), CDate(dt2))
End Sub
'~~> Using DateDiff with direct date comparision
Sub Sample3()
Dim dt1 As Date, dt2 As Date
dt1 = #12/12/2014#
dt2 = #12/12/2013#
If DateDiff("d", dt2, dt1) > 0 Then
MsgBox "Greater"
Else
MsgBox "Smaller or Equal"
End If
End Sub
'~~> Using DateDiff with converting string to date and directly comparing
Sub Sample4()
Dim dt1 As Date, dt2 As Date
dt1 = "12/12/2014"
dt2 = "12/12/2013"
If DateDiff("d", CDate(dt2), CDate(dt1)) > 0 Then
MsgBox "Greater"
Else
MsgBox "Smaller or Equal"
End If
End Sub
Function IsGreater(d1 As Date, d2 As Date) As Boolean
IsGreater = d1 > d2
End Function
于 2013-02-18T17:56:49.787 に答える
0
日付としての薄暗い注文日
日付として以前の日付を暗く
orderdate = InputBox( "注文日を入力してください")
Earlydate="2011年12月12日"
orderdate>earlydateの場合
MsgBox "Error"
終了する場合
于 2013-02-19T09:52:03.603 に答える
0
これを試して
If dateRequired < orderDate Then
Debug.Print "this should generate an error."
End If
于 2013-02-18T17:46:10.087 に答える