Datum uit cel vergelijken met datum in VBA

[Joost.van.Steeg]

Hoi,

Ik zou graag een vergelijking willen maken tussen een datum in een cel en een willekeurige datum in VBA. Bijvoorbeeld, in cell 1A staat: 12-12-2007 en ik wil checken of deze datum groter is dan 10-12-2007.

Moet je dan eerste twee variabelen definieren?

Dim dCellDatum as Date 
Dim dVBADatum as Date

dCellDatum = Sheets("Sheet1").range("A1").value
dVBADatum = 12-05-2007 

If Format(dVBADatum, "dd-mm-yyyy") > dCellDatum 
then Sheets("Sheet1").range("A2").value = "Ja, die is groter"

En is de datum die in de variabele dVBADatum staat, nu 12 mei 2007, of 5 december 2007?


Alvast bedankt

 

[Wigi]

Sub DatumsVergelijken()

    Dim dCellDatum As Date
    Dim dVBADatum As Date
    
    dCellDatum = Sheets("Sheet1").Range("A1").Value
    dVBADatum = #12/5/2007#
    
    Sheets("Sheet1").Range("A2").Value = IIf(dVBADatum > dCellDatum, "Ja, die is groter", "Neen, niet groter")

End Sub

Hier is het 5 december.

Wigi

 

[Joost.van.Steeg]

Hee Wigi!

Wederom is mijn dank groot.

--> Mega Honourable Senior Member
Inmiddels je 10.000ste post geplaatst ?

 

[Joost.van.Steeg]

Toch nog even het volgende:

Hebben de datum notaties van de systeem instellingen nog invloed op hoe VBA een datum in een datum-variabele plaatst ?

Of is het onafhankelijk van de instellingen, en is #12/5/2007# altijd 5 december?

 

[Wigi]

Toch nog even het volgende:

Hebben de datum notaties van de systeem instellingen nog invloed op hoe VBA een datum in een datum-variabele plaatst ?

Of is het onafhankelijk van de instellingen, en is #12/5/2007# altijd 5 december?

Dit is afhankelijk van de landinstellingen.

Voer deze macro maar eens uit, vervolgens landinstellingen veranderen en macro weer uitvoeren.

Sub w()

    Dim d As Date
    
    d = #5/12/2007#
    
    MsgBox d

End Sub

Wigi

 

[Wigi]

--> Mega Honourable Senior Member
Inmiddels je 10.000ste post geplaatst ?

Klik op mijn naam en in mijn profiel zie je het antwoord op die vraag

 

[etri]

Toch nog even het volgende:

Hebben de datum notaties van de systeem instellingen nog invloed op hoe VBA een datum in een datum-variabele plaatst ?

Of is het onafhankelijk van de instellingen, en is #12/5/2007# altijd 5 december?

Veiliger is om DateSerial te gebruiken (NLse term weet ik niet) in VBA:

    Dim mydate As Date
    
    mydate = DateSerial(2007, 5, 12)

 

[Wigi]

Joost, zet de status van de vraag eens op opgelost aub.