Funktion - validering om dage er hele uger

Hey Joker !
Der er helt sikkert en funktion, som jeg ikke lige har på håden, men denne kan bruges i en snæver vending :)

dage = 21
fuldedage = dage/7
resultat = (fuldedage - Int(fuldedage))
If resultat <> 0 Then
MsgBox "Ikke en hel uge"
Else
MsgBox "En hel uge"
End if

/Killer

Functionen hedder mod :-)

dage = 20
rest = (dage mod 7)>0
If rest Then
MsgBox "Ikke en hel uge"
Else
MsgBox "En hel uge"
End if

Arh ja.
Der var den :)