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

' 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

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

Tony,
That would be great, if only I knew how to create Macros. I thought there
would be a formula that I could use without getting too technical. Macros
are probably your second language, however, I don't know how to create or use
them. I'm sorry. Perhaps I should start there, huh?

Christy

"Tony Jollans" wrote:

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

The macros have been created for you by Doug and Tony. See
http://www.gmayor.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"HCFRAdmin" wrote in message
...
Tony,
That would be great, if only I knew how to create Macros. I thought there
would be a formula that I could use without getting too technical. Macros
are probably your second language, however, I don't know how to create or
use
them. I'm sorry. Perhaps I should start there, huh?

Christy

"Tony Jollans" wrote:

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

Sorry Christie,

As you say, macros are a sort of second language to me and I forget that
they are completely alien to others

Suzanne has pointed you to instructions for installing them - I hope it goes
well.

It would be possible to concoct a formula but it would be longer than the
code and you really wouldn't like it. If that is what you would like, please
come back.

--
Enjoy,
Tony


"HCFRAdmin" wrote in message
...
Tony,
That would be great, if only I knew how to create Macros. I thought there
would be a formula that I could use without getting too technical. Macros
are probably your second language, however, I don't know how to create or
use
them. I'm sorry. Perhaps I should start there, huh?

Christy

"Tony Jollans" wrote:

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

Hi Christy,

To see how to do this and just about everything else you might want to do
with dates in Word, check out the topic 'Add Or Subtract Two Time Periods'
in my Date Calc 'tutorial', at:
http://www.wopr.com/cgi-bin/w3t/show...?Number=249902

Cheers


"HCFRAdmin" wrote in message
...
Tony,
That would be great, if only I knew how to create Macros. I thought there
would be a formula that I could use without getting too technical. Macros
are probably your second language, however, I don't know how to create or
use
them. I'm sorry. Perhaps I should start there, huh?

Christy

"Tony Jollans" wrote:

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