Hej

Har precis börjat med VB och sitter med ett problem.
Hur får man ett tidtagarur att visa timmar och minuter istället för sekunder?
Har laddat ner detta exempel ocg försökt modifiera så att det visar timmar och minuter
men lyckas inte.
Hoppas att någon kan hjälpa mig att förstå.

Option Explicit
DefLng A-Z

'Label1 och Label2
'Command1 och Command2
'Timer1 Enabled = False, Interval = 448
'Timer2 Enabled = False, Interval = 448
'Interval 448 därför att säkert få träff varje sekund

Dim Start As Single, Elapsed
Dim Start2 As Single, Elapsed2

Private Sub Form_Load()
Command1.Caption = "Stop"
Command2.Caption = "Stop"
Label1 = "0": Label2 = "0"
Label1.Tag = "0": Label2.Tag = "0"
Label1.Alignment = 2: Label2.Alignment = 2
End Sub

Private Sub Command1_Click()
Command1.Caption = "Klocka 1 går"
Form1.Caption = "Klocka 1 går"
Label1.BackColor = &HFEF0D3
Label2.BackColor = &HDEEFEF
Command2.Caption = "Stop"
Timer1.Enabled = True
Timer2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
Start = Timer
Label2.Tag = Label2
End Sub

Private Sub Command2_Click()
Command2.Caption = "Klocka 2 går"
Form1.Caption = "Klocka 2 går"
Label2.BackColor = &HFEF0D3
Label1.BackColor = &HDEEFEF
Command1.Caption = "Stop"
Timer2.Enabled = True
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Start2 = Timer
Label1.Tag = Label1
End Sub

Private Sub Timer1_Timer()
'Om midnatt passeras
If Start > Timer Then Start = Start - 86400
Elapsed = Timer - Start
Label1 = Elapsed + CLng(Label1.Tag)
End Sub

Private Sub Timer2_Timer()
'Om midnatt passeras
If Start2 > Timer Then Start2 = Start2 - 86400
Elapsed2 = Timer - Start2
Label2 = Elapsed2 + CLng(Label2.Tag)
End Sub

Hej
Ser att du kör mitt gamla StartStop ur
Edit : det blev fel återkommer
/Sven

Det stämmer, och tack för ditt snabba svar. Ska prova så fort jag hinner.

Hej
Wooopppps
Det blev snabbt och fel ,återkommer
/Sven

Jag misstänkte det. fick det nämligen inte att fungera. Tack ändå :)