Word Document Properties

Part II: Learning the Ropes 
09_046500 ch04.qxp 12/5/06 5:54 PM Page 100

---

vbOKOnly, _
“Mortgage Output”
‘ Calculate the monthly payments required to build
‘ a savings account to 120000.
Rate = 0.0025 ‘ 3 Percent divided by 12
Months
Periods = 240 ‘ 20 years
PresentValue = -5000 ‘ $5,000 current savings.
FutureValue = 120000 ‘ $120,000.00 savings in 20
years
MsgBox CStr(Pmt(Rate, Periods, PresentValue, _
FutureValue)), _
vbOKOnly, _
“Savings Output”
End Sub
The code shows two examples. The first determines the minimum amount
that you would need to pay each month on a 5-year loan of $120,000.00 com-
pounded at a 6 percent interest rate. The second example shows how much
you would need to pay into a savings account each month to have $120,000.00
saved at 20 years when starting with $5,000 in the account and a 3 percent
interest rate from the bank. Running the example shows that the mortgage pay-
ment is $2,319.94 per month and that the savings rate is $337.79 per month.
Using date and time values
Tracking time and date in your program can be important. Client contact entries
in Access usually require the date that the client was last contacted. A spread-
sheet might require dates for each entry in a ledger. It’s helpful to include
dates in Word documents so that you know the last time that someone
accessed or changed it. You might need to know how long a task takes or
have an indicator of when time has elapsed.
Both date and time variables rely on the 
Date
data type. This data type con-
tains both date and time information. However, you can separate the informa-
tion as needed. You can also assign date and time independently to the variable
by using the 
Date
and 
Time
functions or assign both date and time by using
the 
Now
function. These are the same functions that you use to perform this
task within a spreadsheet.
As with a spreadsheet, you can work with time values individually. Listing
4-13 demonstrates various time functions. Notice that you can control indi-
vidual elements, making it easy to change just what you need.
101