如何将自定义日期转换为日期以进行比较？

Question

我需要转换电子表格1中的自定义日期数据，以便与Spreadsheet 2中的日期数据进行比较。自定义日期数据具有以下格式：21/02/2014 08:09:21 am，并且将存储在变量Date1。日期数据为：21/02/2014，并存储在Date2中。我只需要比较日期（不带时间参数）和指令“if”，例如

If Date1=Date2 Then 

    'Instruction 

End If 

我大部分的代码，所以我基本上只需要一路自定义日期数据的最新数据，存储转换的变量，并进行比较。

Answer 1

VBA溶液：

Sub timeCompare() 
    date1 = Application.WorksheetFunction.Text([A1], "d/m/yyyy") 
    date2 = Application.WorksheetFunction.Text([A2], "d/m/yyyy") 

    If date1 = date2 Then 
     MsgBox ("match") 
    Else 
     MsgBox ("no match") 
    End If 
End Sub 

OR

Sub timeCompare() 
    date1 = Int([A1]) 
    date2 = Int([A2]) 

    If date1 = date2 Then 
     MsgBox ("match") 
    Else 
     MsgBox ("no match") 
    End If 
End Sub 

结果：

---

式解决方案：

=IF(TEXT(A1,"d/m/yyyy")=TEXT(A2,"d/m/yyyy"),"Match","No Match") 

或者

=IF(INT(A1)=INT(A2),"Match","No Match")