[RESOLVED] Compute hours in Work

hello guys..

how to compute time Login-In and Log-Out?

for example:

Code:

---

my Login Time  = 8:00:00 AM
my Logout time = 4:15:10 PM

---

i used DateDiff ( "h", Log-In, Log-Out ) but it only shows the HOURS in work..

but i want the output like this:

Code:

---


Total Hours    Minute/s    Second/s
      8        15            10

---

pls help.... Thanks in Advance..:afrog:


█ jaypee █

or using right(logout,2) so u have the "10"
format(logout,"hh") u get "8"
format(right(logout,5),"mm") u get 15

or

use "split"

Code:

---

Dim dtmLogin As Date, dtmLogout As Date
Dim lngSec As Long

dtmLogin = DateAdd("h", -8, Now)
dtmLogout = Now

lngSec = DateDiff("s", dtmLogin, dtmLogout)

MsgBox (lngSec \ 3600) & " hours" & vbNewLine & _
    ((lngSec Mod 3600) \ 60) & " minutes" & vbNewLine & _
    (lngSec Mod 60) & " seconds"

---

wow,, Thanks to all of you Guys....

Quote:

---

Originally Posted by Merri

Code:

---

Dim dtmLogin As Date, dtmLogout As Date
Dim lngSec As Long

dtmLogin = DateAdd("h", -8, Now)
dtmLogout = Now

lngSec = DateDiff("s", dtmLogin, dtmLogout)

MsgBox (lngSec \ 3600) & " hours" & vbNewLine & _
    ((lngSec Mod 3600) \ 60) & " minutes" & vbNewLine & _
    (lngSec Mod 60) & " seconds"

---

---

Thank you so much Merri.. i try your code and yes it works..!


█ jaypee █