VBA datumvraagje

[Brancoli]

In een makro wil ik het aantal dagen verschil berekenen tussen een variabele met de naam datum en een bepaalde datum, bijvoorbeeld 1 juni 2013. In dat voorbeeld is de waarde van de Variabele altijd kleiner dan 1 juni 2013. Als ik het volgende doe:

sub dagenTeller()
   Dim datum As Date
   Dim dagen As Byte
   dagen = (41426 - datum)
End Sub

dan is het resultaat een datum en geen getal. Hoe kan ik hier een getal voor in de plaats krijgen?

 

[Tardis]

sub dagenTeller()
Dim datum As Date
Dim dagen As Integer
dagen = #06/01/2013# - datum 'VBA gebruikt US date format mm/dd/yyyy dus 6 juni 2013 wordt 01/06/2013
End Sub

Tardis

 

[snb]

sub dagenTeller()
  datum =date
  dagen = 41426 - datum
End Sub

 

[Brancoli]

Zo simpel maar je moet het maar net weten. Ik ben dagelijks aan het oefenen met het maken van makro's e.d. Heb je misschien een boekentip?

 

[Brancoli]

Trouwens ik krijg Fout 6 tijdens uitvoering ....

 

[snb]

verwijder option explicit

Wat dacht je van VBA voor dummies ?

 

[Brancoli]

er is geen Option Explicit...

 

[snb]

sub dagenTeller()
  datum =1*date
  dagen = 41426 - datum
End Sub

 

[Brancoli]

Thnx.
Ik bedacht me later dat het ook zo kan:
sub dagenTeller()
Dim datum As date
Dim datum1juni As date
datum1 juni = 41426
dagen = datum1juni - datum
End Sub

 

[snb]

Nee zo kan het niet, want de variable 'datum' bevat geen waarde.