Working with formulas in Word tables - calculating time on scene.
If you're not going to bother with any validation then this would be a
little simpler ..
With ActiveDocument
.FormFields("Duration").Result _
= Format(CDate(.FormFields("FinishTime").Result) _
- CDate(.FormFields("StartTime").Result), "h:mm")
End With
--
Enjoy,
Tony
"Doug Robbins - Word MVP" wrote in message
...
' 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
|