Sobre ir registrado la hora + milésimas
Hola Gsutavo:
He visto tu respuesta a la pregunta titulada "Excel como cronometro" y me parece genial. Yo justamente necesito algo similar y la única diferencia es que necesita marcar la hora, minuto, segundo y décima o milésima... En fin, la mayor precisión posible.
¿Sabes cómo hacer esto? Agradecería enormemente tu orientación.
Saludos,
Felipe
nick: strangiato
He visto tu respuesta a la pregunta titulada "Excel como cronometro" y me parece genial. Yo justamente necesito algo similar y la única diferencia es que necesita marcar la hora, minuto, segundo y décima o milésima... En fin, la mayor precisión posible.
¿Sabes cómo hacer esto? Agradecería enormemente tu orientación.
Saludos,
Felipe
nick: strangiato
1 Respuesta
Respuesta
1
Lamentablemente, la mayor precisión que tiene excel (para el usuario) es el segundo :(
Hola Gustavo:
Que opinas de este código
Private Sub milesimas()
Dim min As Integer
Dim sec As Integer
Dim mil As Integer
Dim totalSegundos As Single
totalSegundos = Timer
min = Minute(Time)
sec = Second(Time)
mil = (totalSegundos - Int(totalSegundos)) * 1000
Range("A1").FormulaR1C1 = min
Range("B1").FormulaR1C1 = sec
Range("C1").FormulaR1C1 = mil
End Sub
Si la variable mil la cambias de integer a long aguanta más decimales
Espero tus comentarios,
Felipe
Que opinas de este código
Private Sub milesimas()
Dim min As Integer
Dim sec As Integer
Dim mil As Integer
Dim totalSegundos As Single
totalSegundos = Timer
min = Minute(Time)
sec = Second(Time)
mil = (totalSegundos - Int(totalSegundos)) * 1000
Range("A1").FormulaR1C1 = min
Range("B1").FormulaR1C1 = sec
Range("C1").FormulaR1C1 = mil
End Sub
Si la variable mil la cambias de integer a long aguanta más decimales
Espero tus comentarios,
Felipe
pues eso para mi NO da las milesimas; y ojo con esto
min = minute (Time)
sec = second(Time)
Pues puede pasar que la instrucción Time valga distinto (pues son dos ejecuciones); si querés asegurar que hablen del mismo valor deberías hacer
tiempoAux = Time
min = minute(tiempoAux)
sec = second(tiempoAux)
Y de esta forma siempre hablas del mismo valor
min = minute (Time)
sec = second(Time)
Pues puede pasar que la instrucción Time valga distinto (pues son dos ejecuciones); si querés asegurar que hablen del mismo valor deberías hacer
tiempoAux = Time
min = minute(tiempoAux)
sec = second(tiempoAux)
Y de esta forma siempre hablas del mismo valor
Gracias Gustavo por el comentario. Tienes toda la razón y considerare lo que dices
Asumo que la idea para sacar decimales esta bien porque no me dijiste nada sobre el proceso
Saludos y gracias por tu tiempo
Felipe
Asumo que la idea para sacar decimales esta bien porque no me dijiste nada sobre el proceso
Saludos y gracias por tu tiempo
Felipe