timer - how to calculate hours?

[rwahdan@gmail.com]

Hi,



I have the below code, it is showing 65:00 and counting down, I need it to show 01:05:00 instead so can you help?

Option Compare Database
Public Loops As Integer


Private Sub Form_Load()


   Me.TimerInterval = 1000


End Sub


Private Sub Form_Timer()
Static StartTime As Date


Dim SecondsToCount As Integer


SecondsToCount = 3900 'Set this variable to the total number of seconds to count down


If Loops = 0 Then StartTime = Time
 
 Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
 Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
 Me.Label2.Caption = Hrs & ":" & Format(Min, "00") & ":" & Format(Sec, "00")
 Loops = Loops + 1


 If Me.Label2.Caption = "0:00" Then
 timeout = -1
   'Call cmdSubmit_Click
   MsgBox timeout
   Me.TimerInterval = 0
   Exit Sub
 End If


End Sub

[Minty]

Divide the total minutes by sixty, take that as your hour value.
Multiply that hour value by 60 and subtract that from your total minutes. that is your remaining minutes.

And as advice moving forwards;
Add Option Explicit to the top of all your code modules.
Declare all your variables,.

[Gina Maylone]

It looks like where you are setting your label2.caption, you are only supplying formatted minutes and seconds, not hours.

And here you are only getting minutes and seconds,

Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60

[rwahdan@gmail.com]

Thanks for the reply but I am doing a count down and if I do that it keeps the minutes and Hours the same number and seconds only counts. Please help?

[rwahdan@gmail.com]

It looks like where you are setting your label2.caption, you are only supplying formatted minutes and seconds, not hours.

And here you are only getting minutes and seconds,

Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60

Thanks for the reply, I took this from a post and I don't know how to get the hours so I can add the label to that? Can you please help me add the hrs to the code?

[Minty]

There must be more code to this than you have shown.
Loops isn't declared anywhere, and as such you don't loop around ? However if it does work -which I doubt ;

    Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60


    Hours = (Min \ 60) Mod 60
    'Debug.Print Hours, Min


    MinsLeft = Min - (Hours * 60)
    
    Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
    'Debug.Print Hours, Min, Sec, DateDiff("s", StartTime, Time)
    Me.Label2.Caption = Hours & ":" & Format(MinsLeft, "00") & ":" & Format(Sec, "00")
    loops = loops + 1

[ssanfu]

Loops is declared at the top as a global variable

Option Compare Database
Public Loops As Integer


Private Sub Form_Load()

Also note that "Min" (also "Minute") is a reserved word in Access!