|
|
|
|
#1
01-13-2016, 02:00 AM
|
||||
|
||||
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] 
|
|
| Tags |
| wordvba |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Assistance with VBA Code to identify and highlight dates in a word doc
|
shaunlthomas | Word VBA | 1 | 08-13-2015 05:25 PM |
|
Printing a series in Word docs with future dates
|
Rocky Vet at VAMC | Word | 2 | 04-04-2015 04:36 PM |
|
Changing Actual Finish dates changes original Finish dates
|
SomewhereinTX | Project | 3 | 12-20-2013 10:25 AM |
|
Sequential Dates in Word
|
Ultrap3 | Word | 2 | 02-04-2011 02:53 PM |
| Stop Word from changing Folder DATES? | binar | Word | 0 | 08-12-2010 05:53 PM |
Windows 7 64bit 
Office 2010 32bit
Hybrid Mode