Thread: [Solved] Working with Dates in Word VBA
View Single Post
 
Old 01-13-2016, 02:00 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Try something based on:
Code:
Sub Demo()
Dim MyDate As Date
MyDate = CDate(InputBox("Please input a date", "Date Entry"))
MsgBox "The # days difference between the input date and today is:" & vbCr & vbTab & Int(Now() - MyDate)
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote