Dag allen,
Ik heb een datumvergelijking gemaakt voor Excel.
Wil dat er alleen actie uitgevoerd wordt als de huidige datum zich bevindt tussen 28 oktober van het huidige jaar en 1 april van het eerstvolgende jaar.
De volgende code lijkt daarvoor bijna helemaal correct te werken.
Als ik in de foutopsporing (n.a.v. de STOP) met de muis hover over de waardes van CUR_DATE en MAX_DATE, dan zie ik keurig de correcte datumwaardes ZONDER quotes er omheen.
De MIN_DATE value heeft echter quotes "27-10-2017" in de waarde die het laat zien, dus ik verwacht dat daar iets mis gaat.
Als ik het IF-statement aanpas en alleen vergelijk met MAX_DATE dan krijg ik ook een TRUE terug. Dus de vergelijking met MIN_DATE lijkt nog niet goed te werken. Iemand een idee wat ik hier kan doen om dit voor elkaar te krijgen?
Ik heb een datumvergelijking gemaakt voor Excel.
Wil dat er alleen actie uitgevoerd wordt als de huidige datum zich bevindt tussen 28 oktober van het huidige jaar en 1 april van het eerstvolgende jaar.
De volgende code lijkt daarvoor bijna helemaal correct te werken.
Code:
Dim CUR_Date, MIN_DATE, MAX_DATE As Date
CUR_Date = Date
MIN_DATE = "27-10-" & Year(Date)
MAX_DATE = "31-3-" & Year(DateAdd("yyyy", 1, Date))
If CUR_Date > MIN_DATE And CUR_Date < MAX_DATE Then
MsgBox "Test gelukt!
End If
Stop
Als ik in de foutopsporing (n.a.v. de STOP) met de muis hover over de waardes van CUR_DATE en MAX_DATE, dan zie ik keurig de correcte datumwaardes ZONDER quotes er omheen.
De MIN_DATE value heeft echter quotes "27-10-2017" in de waarde die het laat zien, dus ik verwacht dat daar iets mis gaat.
Als ik het IF-statement aanpas en alleen vergelijk met MAX_DATE dan krijg ik ook een TRUE terug. Dus de vergelijking met MIN_DATE lijkt nog niet goed te werken. Iemand een idee wat ik hier kan doen om dit voor elkaar te krijgen?