Hola todos tengo el siguiente codigo para conseguir que un label (Label1) aparezca asi:
HH:MM:SS,MLML (horas, minutos, segundos y milesimas).
aqui el codigo:
pero nose porque solo me transforma hasta los segundos, y los minutos y horas quedan en 00.Código:Private Sub Form_Load() Timer1.Interval = 10 Timer2.Interval = 1 Label2.Caption = 0 End Sub Private Sub Timer1_Timer() Label2.Caption = Label2.Caption + 1 End Sub Private Sub Timer2_Timer() Dim Horas As Integer Dim Minutos As Integer Dim Segundos As Integer Dim Milisegundos As Integer Horas = (Minutos \ 60) Minutos = (Segundos \ 60) - (Horas * 60) Segundos = (Label2.Caption \ 100) - (Minutos * 60) Milisegundos = Label2.Caption - (Segundos * 100) Label1.Caption = Format$(Horas, "0#") & ":" & Format$(Minutos, "0#") & ":" & Format$(Segundos, "0#") & "," & Format$(Milisegundos, "0#") End Sub
Ayudenme porfavor.
Gracias.