Huidige datum vergelijken met een opgegeven datum.

[Joost V]

Hallo,

Ik wil graag in een macro een vergelijk maken tussen huidige datum en 31 dec tot 10 jan en dat als dat zo is dan verder gaat.
Dit houdt dus in dat de rest van de macro het doet tussen 31 dec van huidig jaar tot 10 jan van volgend jaar. Echter volgend jaar krijg ik dus hetzelfde weer maar dan een jaar verder.
Iemand een idee hoe aan te vangen? Ben nog maar een beginneling

Groeten Joost V.

 

[Wigi]

Sub d()

    '31 dec van huidig jaar tot 10 jan
    
    If (Month(Date) = 12 And Day(Date) = 31) Or (Month(Date) = 1 And Day(Date) <= 10) Then
    
        'de macro
    
    End If
    
End Sub

Wigi

 

[Joost V]

Wigi,

Ik dank u weer.

Groeten Joost V.