WD98: How to Perform Calculations with Dates and Times

MORE INFORMATION

Examples:

Sub Date_DateCalc()
      'To calculate a date seven days from the current date.
      MsgBox DateSerial(Year(Now), Month(Now), Day(Now) + 7)
   End Sub

   Sub Date_YourAge()
      'To return your age in number of days.
      'Replace "mm/dd/yyyy" with your birth date.
      MsgBox Int(Now - DateValue("mm/dd/yyyy"))
   End Sub

   Sub Date_DivideTime()
      'To display 6:00 AM (because 6:00 AM is one-half of 12:00 PM).
      MsgBox TimeSerial(12 / 2, 0, 0)
   End Sub

   Sub Date_CurrentDateTime()
      'The current date and time.
      MsgBox Now
   End Sub

   Sub Date_LastDayPreviousMonth()
      'To calculate the last day of the previous month.
      MsgBox (Now - Day(Now))
   End Sub