' Macro to calculate the elapsed time for formfields with Date format of
HH:mm

' Macro created 16 May 1999 by Doug Robbins - Word MVP

'

Start = ActiveDocument.FormFields("StartTime").Result

StartHour = Val(Left(Start, 2))

StartMinutes = Val(Right(Start, 2))

StartTimeMinutes = StartHour * 60 + StartMinutes

Finish = ActiveDocument.FormFields("FinishTime").Result

FinishHour = Val(Left(Finish, 2))

FinishMinutes = Val(Right(Finish, 2))

FinishTimeMinutes = FinishHour * 60 + FinishMinutes

ElapsedMinutes = FinishTimeMinutes - StartTimeMinutes

ElapsedHours = Int(ElapsedMinutes / 60)

ElapsedMinutes = ElapsedMinutes - ElapsedHours * 60

ActiveDocument.FormFields("Duration").Result = Str(ElapsedHours) & ":" &
Format(ElapsedMinutes, "00")


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"HCFRAdmin" wrote in message
...
I am creating forms to be filled out on the computer and then emailed to
me.
I am trying to create a formula in a table that can tell us how many
minutes
(hours and minutes) that our personnel spent on a scene. For example: I
have a box that they can enter their "Response Time" in and then I have
another box where they can enter "Time Clear of Scene". I want a formula
in
the following cell to total the amount of hours and minutes they spent at
this certain call. How do I do this? Help? Please??? Thanks in
advance!

Christy