Ayuda con contador
Publicado por Juan Pablo (46 intervenciones) el 23/05/2006 16:43:41
Hola a todos, tengo la siguiente duda que no sé como solucionar.
Resulta que poseo un contador que esta en formato de cronometro que me muestra el tiempo de detencion de un proceso. Este contador lo muestro en una celda de una MSFLEXGRID.
El codigo que uso lo muestro a continuacion:
Dim dif As Single
Dim horas As Integer
Dim minutos As Integer
Dim segundos As Integer
If Timer > tiempo1 Then
dif = Timer - tiempo1
Else
dif = 86400 - tiempo1 + Timer
End If
horas = Fix(dif) \ 3600
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)
MSFlexGrid1.TextMatrix(6, 1) = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")
DoEvents
Con esto veo el tiempo para una detencion, pero el problema surge cuando existe una segunda, etc y quiero que se sume a la que ya hubo. Y no encuentro la solucion a esto.
Eso sería, espero poder tener ayuda.
Desde ya muchas gracias.
Resulta que poseo un contador que esta en formato de cronometro que me muestra el tiempo de detencion de un proceso. Este contador lo muestro en una celda de una MSFLEXGRID.
El codigo que uso lo muestro a continuacion:
Dim dif As Single
Dim horas As Integer
Dim minutos As Integer
Dim segundos As Integer
If Timer > tiempo1 Then
dif = Timer - tiempo1
Else
dif = 86400 - tiempo1 + Timer
End If
horas = Fix(dif) \ 3600
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)
MSFlexGrid1.TextMatrix(6, 1) = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")
DoEvents
Con esto veo el tiempo para una detencion, pero el problema surge cuando existe una segunda, etc y quiero que se sume a la que ya hubo. Y no encuentro la solucion a esto.
Eso sería, espero poder tener ayuda.
Desde ya muchas gracias.
Valora esta pregunta


0