Sub foo()
bar = Date / 2
Debug.Print bar
End Sub

2010、win7だけどエラーでない