分範囲を比較するdatediff関数

Question

シート内のすべてのデータをバリアント配列にコピーしています。列1には次のようなタイムスタンプがあります。

木3月2日午前1時14分28秒ESTは2017

私は1分のタイムスパン内のすべての行を処理したいです。私は分の差異を見つけるためにdatediff関数を使用しています。しかし、何とかそれは期待どおりに動作していません。 ここにコードがあります。

For i = 1 To UBound(vBaseArray) 
      dSavedDate = convertDate(vBaseArray(i,1)) 'function to convert string to date 
.....   some code 
      For j = i To UBound(vBaseArray) 'function to convert string to date 

       If DateDiff("n", dSearchDate, dSavedDate) >= 1 And DateDiff("n", dSearchDate, dSavedDate) <= 2 Then 

       ----some code 

が、結果は期待 どおりではありませんdSavedDateは木3月2日の場合は1時14分28秒EST 2017その後、 文は、タイムスタンプ

木3月2日1時12分、次の私を返している場合：24 EST 2017

木3月2日午前1時12分44秒EST 2017

木3月2日午前1時12分40秒EST 2017

木3月2日午後12時47分12秒EST 2017

私はdSavedDate

の> = 1分、それは私が間違っているのことを何であるだろうタイムスタンプをしたいのに対し？

Answer 1

Date変数は内部的にはと表され、時間部分は小数点以下の小数部の桁になります。あなただけのそれらを直接差し引くと、彼らはお互いの分以内にしているかどうかを確認するために、デルタを使用することができます。

Public Function WithinOneMinute(first As Date, second As Date) As Boolean 
    Const ONE_MINUTE As Double = 1/24/60 
    Dim difference As Date 
    difference = Abs(first - second) 
    WithinOneMinute = difference <= ONE_MINUTE 
End Function 

その後は、このようなあなたのループでそれを呼び出すことができます。

For i = 1 To UBound(vBaseArray) 
     dSavedDate = convertDate(vBaseArray(i, 1)) 
     For j = i To UBound(vBaseArray) 
      If Not WithinOneMinute(dSearchDate, dSavedDate) Then