Datum vergleichen

Question

Hallo,

in einer Zelle habe ich ein Aktualisierungsdatum stehen der Form

12.1.17 5:12

Ich möchte jetzt ein Tagesdatum mit diesem Datum vergleichen, d.h. ich will nur wissen ob sich Tag, Monat und Jahr geändert haben, die Uhrzeit ist unwesentlich.
Wie könnte das in einem Code aussehen?
Danke und Gruß A.

Answer 1

Hallo Andreas.

Option Explicit

Sub vergleich()
If Cells(1, 2) = Int(CDate(Cells(1, 1))) Then Cells(1, 3) = True
End Sub

A1= Akt.-Datum
B1=Tagesdatum
C1=Vergleichsergebnis

Gruß
Rainer

Answer 2

besser so:

Option Explicit

Sub vergleich()
If Cells(1, 2) = Int(CDate(Cells(1, 1))) Then
Cells(1, 3) = True
Else
Cells(1, 3) = False
End If
End Sub

Gruß
Rainer

Answer 3

Hallo Rainer,

vielen Dank, schön wieder was von dir gehört zu haben!
VG A.