calculate hours worked from two date/time cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Geoff May - 10 Jan 2006 22:46 GMT

I am developing a timesheet and have one cell with start time and one with
finish time. I want a third cell to show hours worked being the difference
between cell two and cell one. I have tried formulas and rules in the third
cell without success. Can you advise please Thanks Geoff may

Reply to this Message

Bojana Marjanovic [MSFT] - 16 Jan 2006 20:54 GMT

Hi Geoff,
I'm afraid there's no easy way to do this in Office 2003. You will have to
write some code to perform these calculations.
We are working on improving support for this scenario in our upcoming
release.
-Bojana

>I am developing a timesheet and have one cell with start time and one with
> finish time. I want a third cell to show hours worked being the
> difference
> between cell two and cell one. I have tried formulas and rules in the
> third
> cell without success. Can you advise please Thanks Geoff may

Reply to this Message

Sandeep - 06 Feb 2006 08:22 GMT

Hi Geoff,

This code is infopath Vbscript managed code.

Expl:
Field1 and field2 two are date pickers.
Field3 is textbox
Past this code

Sub CTRL18_5_OnClick(eventObj)

Dim nodeDate1
Dim nodeDate2
Dim dt1Val
Dim dt2Val
Dim daysElapsed

Set nodeDate1 = XDocument.DOM.selectSingleNode("/my:myFields/my:field1")
Set nodeDate2 = XDocument.DOM.selectSingleNode("/my:myFields/my:field2")

dt1Val = CDate(nodeDate1.Text)
dt2Val = CDate(nodeDate2.Text)

daysElapsed = DateDiff("d", dt1Val, dt2Val)

XDocument.DOM.selectSingleNode("/my:myFields/my:field3").text = daysElapsed
End Sub

I hope this will help U

Signature

Sandeep
www.autonomysystems.com

Reply to this Message