[RESOLVED] Compute hours in Work

[jp26198926]

hello guys..

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

for example:

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:

 
Total Hours    Minute/s     Second/s
       8        15            10

pls help.... Thanks in Advance..


█ jaypee █

[yosef_mreh]

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"

[Merri]

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"

[jp26198926]

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

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 █