time format problem

[tppradeep18]

Just paste this code

private sub command1_click()
dim intH as integer, intMin as integer, intSecs as integer
intH = 0
intMin = 0
intSecs = 0

MsgBox Format(intH & " : " & intMin & " : " & intSecs, "hh:mm:ss")
end sub

of course the message box shows 00:00:00


now change the value of intSecs to 60 and run the code

now the message box shows 0 :0 :60

Can anybody help me how do retain the format of hour and minutes to 00 i.e. I wan the result to
be 00:00:60 if the value of intSecs is 60. Can somebody help me why this the formatting is lost in the second case. urgent help needed

[Mark Sreeves]

you're asking vb to format an invalid value to a standard time format

try this (if you must)

MsgBox Format(intH, "00") & " : " & Format(intMin, "00") & " : " & Format(intSecs, "00")

[tppradeep18]

Thanx for the suggestion. It worked for me!!!. I never realized that I am passing illegal values. Can you please explain me why its illegal.

[da_silvy]

i think it would have something to do with vb requiring two digits for each of your time variables.??

[gravyboy]

I think that you can also use....

MsgBox Format(intH, "0#") & " : " & Format(intMin, "0#") & " : " & Format(intSecs, "0#")

If a number is 1 digit then it will prefix a zero.

[tppradeep18]

Is there still any way to do this by using just one Format function instead of using three

[gravyboy]

    Dim iArr%(3), sArr$
    
    For iloop% = 0 To 2
        iArr(iloop) = 0
    Next
    
    iArr(2) = 60

    For iloop = 0 To 1
        sArr = sArr & Format(iArr(iloop), "0#") & ":"
    Next
    
        sArr = sArr & Format(iArr(2), "0#")
        
    MsgBox sArr

This code works but it isn't streamlined in anyway, shape or form. I couldn't come up with a quick way of getting it down to 1 format call.