adding in military time

[flyhigh]

im tring to get the answer +2 by takeing elasped witch is -22 from offset ?
but its adding it
thanks and happy 4th

Private Sub Command3_Click()
Dim start1 As String
Dim stop1 As String
Dim elasped As String
Dim offset As String



offset = "24."
start1 = "23."
stop1 = "01.00"
elasped = stop1 - start1

If elasped < 1 Then
 elasped = offset - elasped
MsgBox elasped

Else

MsgBox elasped
End If






End Sub

[flyhigh]

i forgot about this ..im sorry
Abs(elasped)

[DataMiser]

You should not be using strings for math, very bad practice.

[flyhigh]

is this right with military time

Private Sub Command3_Click()
    Dim start1 As Double
    Dim stop1 As Double
    Dim elasped As Double
    Dim offset As Double
        offset = Val("24.")
        start1 = Val("23.")
        stop1 = Val("1.")
        elasped = stop1 - start1
        MsgBox elasped
    If elasped < 0 Then
        elasped = offset - Abs(elasped)
        MsgBox elasped
    Else
        MsgBox elasped
    End If

End Sub

[FunkyDexter]

Why use strings at all? why not:-

Dim start1 As Double
Dim stop1 As Double
Dim elasped As Double
Dim offset As Double
offset = 24
start1 = 23
stop1 = 1

And you don't need that ABS because you're only subtracting it from offset if it's negative. Why not just do this:-

elasped = offset + elasped

[flyhigh]

that works but the time should be 2300 or 0100

[techgnome]

You should be using two date objects, and then using DateDiff to get the difference in hours.... the fact that it's "Military time" is irrelevant as that's just display...


-tg

[flyhigh]

im tring to get the difference in hours , but the time may start at anytime 11:00 pm wait form 24 or more hours and restart.

[techgnome]

all the more reason to use a date variable.... the difference between 6/27/2012 11:00pm and 6/28/2012 1:00am is 2 hours... but the 6/27/2012 11:00pm and 6/29/2012 1:00am is 26 hours...

-tg

[DataMiser]

No doubt you should be using a date variable and the datediff() function. If you need it displayed a certian way then you just use a format() function to get the desired result.

[flyhigh]

hey yall why does this show an hour even when its only been 40 minutes?
does it round off the numbers?

If timelimit = "" Then timelimit = Format(Now())
    timenow = Format(Now())
    Label1.Caption = timelimit
    Label2.Caption = Format(Now())
    Label3.Caption = DateDiff("h", timelimit, timenow)
    datdiff = DateDiff("h", timelimit, timenow)

[flyhigh]

hey yall timelimit is 12 and 1/2 hours ago why does this code round off to nearest number?

timenow = Format(Now())
datdiff = DateDiff("h", timelimit, timenow)