How do I get today's date as a serial into a variable?

dim dDate as Date
dDate = serial NOW()

Of course the above does not work.