如何使用vba檢查日期是否相同？

Question

我正在嘗試在其中包含日期和時間的單元格上編寫代碼（例如：2014年1月29日上午9:15）。我試圖查看一個單元格的日期是否與另一個單元格的日期匹配。我怎麼能這樣做？

實施例：

A1：14年2月13日B1：14年2月13日 - 這將返回真

A2：1/15/14 B2：14年4月25日 - 這將返回false

我能做到這一點的任何方式？

由於

Answer 1

Excel存儲日期爲其中整數表示日期分數和分數表示一天中的時間（例如，0.5 =中午）。整數是自1/1/1900以來的天數。因此，Excel在內部存儲1/3/1900 6:00 PM作爲3.75。

只要它們被格式化爲日期，您可以直接對它們進行比較：

C1 formula: =(A1=B1) 
C2 formula: =(A2=B2) 

要忽略日期的時間部分，只取整數部分：

C1 formula: =(INT(A1)=INT(B1)) 
C2 formula: =(INT(A2)=INT(B2)) 

有沒有真正需要VBA，但如果您想比較VBA中的日期，則適用相同規則：

Sub CompareDates() 
    With ActiveSheet 
     .[C1] = (Int(.[A1]) = Int(.[B1])) 
     .[C2] = (Int(.[A2]) = Int(.[B2])) 
    End With 
End Sub