Converting Seconds Minutes and Hours

[Bartb]

Hi All
My first posting.
I have three fields in an access database that are seconds,minutes and hours.These are just numbers and have no time values.I need to be able to convert these fields into proper time values.
Thanks
Bartb

[comteck]

You need to give more detail than this.

comteck

[Bartb]

Hi All
when seconds Minutes and hours are added the following result is given
SumOfHRS DUR SumOfMINS DUR SumOfSECS DUR
1530 641285 8460287
I need to be able to covert these into proper times and not just figures
Thanks
Bartb

[comteck]

Most of it is formulas. For the 3 values you gave me (SumofHRS, SumOfMINS, and SumOfSECS), I just set them as constant values in the code. You may have to make a minor change, depending on how those values are set up on the form (i.e textboxes, etc).
The "Fix" Function is used to remove everything after the decimal point.
As well, "Result" is the name of the textbox that is used for the final answer. If yours is named something else, make sure you change it in the code (i.e "Me.Result=....").
Anyway, here is the code. I tested it, so I know it works.


Private Sub Command2_Click()
Dim SumOfHRS, SumOfMINS, SumOfSECS As Double
Dim SumOfDAYS, HRSRemainder, NewSumOfHRS, MINRemainder, NewSumOfMINS, SECRemainder As Variant

SumOfHRS = 1530
SumOfMINS = 641285
SumOfSECS = 8460287

NewSumOfMINS = Fix(SumOfSECS / 60) + SumOfMINS
SECRemainder = SumOfSECS - (Fix(SumOfSECS / 60) * 60)

NewSumOfHRS = Fix(NewSumOfMINS / 60) + SumOfHRS
MINRemainder = NewSumOfMINS - (Fix(NewSumOfMINS / 60) * 60)

SumOfDAYS = Fix(NewSumOfHRS / 24)
HRRemainder = NewSumOfHRS - (Fix(NewSumOfHRS / 24) * 24)

Me.Result = SumOfDAYS & " Days, " & HRRemainder & " Hours, " & MINRemainder & " Minutes, " & SECRemainder & " Seconds"

End Sub

comteck