VBA 2010 - CDateタイプの不一致の問題

Question

次のコードは、一部のラップトップで問題なく動作し、次にタイプミスマッチでエラーが発生するものです。列AAには書式（mm/dd/yyyy）の日付が、列ABにはそれぞれ書式のタイム（hh：mm：ss）が付きます。 Now（）から日付と時刻を差し引いています。私は本当に私のラップトップで正常に動作するため、問題のトラブルシューティングを行うことができません。他の人にとっては、それは誤りです。 CLng(CDate(Now()))には値がありますが、他の2つは型の不一致を引き起こします。私はまた、2つの下の行、日付と時刻を連結した別のものを試してみた、そして行っCLNG（CDate関数（FMTがパブリック関数である

'If CLng(CDate(Now())) - CLng(CDate(Range("AA" & i).Value)) + CLng(CDate(Range("AB" & i).Value)) >= 7 Then 
If CLng(CDate(Now())) - CLng(CDate(FMT(Range("AA" & i), "mm/dd/yyyy"))) + CLng(CDate(FMT(Range("AB" & i), "hh:mm:ss"))) >= 7 Then 

：私は要求しています

Public Function FMT$(ByVal Value, ByVal strFormat) 
FMT = VBA.Format$(Value, strFormat) 
End Function 

私同僚が私の地域の日付/時刻設定のスクリーンショットを送ってくれました。私はこれが事実かもしれないと思っていました。これに似た他の質問を読んだことがありますが、それを理解することはできません。

Answer 1

列AAとABは、むしろ日付と時刻よりもテキストが含まれている場合は、次のステートメントを使用してみてください：

If Now() - (DateValue(Range("AA" & i)) + TimeValue(Range("AB" & i))) >= 7 Then 

ユーザーがローカル日付設定を持っている場合、これはおそらくまだdd/mm/yyyy、例えば、問題になる可能性がありますあなたの列には、他のロケールの日付設定の日付を表す文字列が格納されています。そのような場合は、フィールドを解析して次のようにする必要があります。

Dim myDateStr As String 
Dim myTimeStr As String 
Dim myDateTime As Date 
myDateStr = Range("AA" & i) 
myTimeStr = Range("AB" & i) 
myDateTime = DateSerial(CInt(Mid(myDateStr, 7, 4)), CInt(Mid(myDateStr, 1, 2)), CInt(Mid(myDateStr, 4, 2))) + _ 
      TimeSerial(CInt(Mid(myTimeStr, 1, 2)), CInt(Mid(myTimeStr, 4, 2)), CInt(Mid(myTimeStr, 7, 2))) 

If Now() - myDateTime >= 7 Then 

Answer 2

YouのValue2プロパティを使用できます210オブジェクトを使用してDateTimeの数値表現を取得します。試してみてください：

If CDbl(Now()) - (Range("AA" & i).Value2 + Range("AB" & i).Value2) >= 7 Then 

ただ、それ以外の場合はDateTimeのちょうど日付部分を使用しますが、DoubleにNow()を変換するようにしてください。

DateTimeの数値表現を使用する方が簡単です。地域設定をバイパスすることができます。