 Autor
|
Tema: Calcular el current time (Leído 4,320 veces)
|
iaorengo
 Desconectado
Mensajes: 6
|
Buenas, Estuve buscando por Google por más de 5 hs una solución o algo que me haga entender como hacer. Lo peor de todo es que considero esto como algo muy facil pero no me sale. El tema es el siguiente, si bien se pueden calcular fechas del año de los picapiedras hasta los supersónicos con todos los chiches y muy facil, no encontré forma de calcular o contar desde 0 el "current time" o "uptime". ¿Cómo se puede hacer para comenzar en [00/00/00 - 00:00:00] y que cada 1 segundo me sume 1? Para poder calcular el tiempo transcurrido. Lo más parecido a esto que encontré es un cronómetro, pero la verdad, es muy poco optimo y además, sólo cuenta hasta horas. Espero me puedan ayudar y así además queda para todos los que lo necesitan. Gracias y abrazo. 
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
el uptime se puede calcular con apis, aca un ejemplo simple. Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Form_Load() MsgBox getTimePassed End Sub Public Function getTimePassed() As String Dim lngHour As Long Dim lngMinute As Long Dim lngSeconds As Long lngHour = Int(GetTickCount / 1000 / 60 / 60) lngMinute = Int((GetTickCount / 1000 / 60)) - lngHour * 60 lngSeconds = Int((GetTickCount / 1000)) - lngMinute * 60 - lngHour * 3600 getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar End Function Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String Dim sTemp As String sTemp = Trim(Str(btInputNumb)) If Len(sTemp) = 1 Then sTemp = "0" & sTemp sGetWideTimeString = sTemp End Function
saludos.
|
|
|
|
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
The sister checker al ataque!! http://www.mediafire.com/?4m3z0xa0lwrqnsaMuestra el tiempo desde que se prendio la pc. Lo usaba para ver cuanto tiempo pasaba mi hermana en la pc. No hace falta abrirlo al iniciar sesion o prender la pc. Al abrirlo te muestra el tiempo desde que se prendio. |
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
iaorengo
Desconectado
Mensajes: 6
|
Muchas gracias, ambos funcionan de 10! Una sóla duda no más al respecto: ¿Cómo se lo reinicia? Porque tengan en cuenta que es para hacer el uptime de un servidor y, si bien espero que esté siempre on, algunas veces va a reiniciarce.  Saludos. |
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Se reinicia cuando reinicias el PC... claramente lo dijo Elemental Code
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
O cuando llegue al limite, que mas o menos eran a los 13 dias segun me acuerdo |
|
|
|
|
En línea
|
|
|
|
iaorengo
Desconectado
Mensajes: 6
|
Ah... entonces creo que no me va a servir.
Yo quiero simplemente un contador de Horas:Minutos:Segundos. No tiene nada que ver con el arranque de la PC o sesión. Y que se pueda reinciar cuando lo desee.
|
|
|
|
|
En línea
|
|
|
|
Sanlegas
Desconectado
Mensajes: 131
https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-
|
Lo puedes modificar para que se reestablesca Private Declare Function GetTickCount Lib "kernel32" () As Long Dim acTime As Long Public Function getTimePassed() As String Dim timeActual As Long Dim lngHour As Long Dim lngMinute As Long Dim lngSeconds As Long timeActual = GetTickCount - acTime lngHour = Int(timeActual / 1000 / 60 / 60) lngMinute = Int((timeActual / 1000 / 60)) - lngHour * 60 lngSeconds = Int((timeActual / 1000)) - lngMinute * 60 - lngHour * 3600 getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar End Function Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String Dim sTemp As String sTemp = Trim(Str(btInputNumb)) If Len(sTemp) = 1 Then sTemp = "0" & sTemp sGetWideTimeString = sTemp End Function Public Function Reset() acTime = GetTickCount End Function
En un formulario: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() MsgBox getTimePassed Module1.Reset MsgBox getTimePassed Sleep 3000 MsgBox getTimePassed Module1.Reset MsgBox getTimePassed End Sub
|
|
|
|
« Última modificación: 23 Noviembre 2011, 10:20 am por Tenient101 »
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
Pone un timer con interval de 1000 Dim xd As Date Private Sub Form_Load() xd = 0 'me evade la razon, pero arranca a las 12:00:00 End Sub Private Sub Timer1_Timer() xd = xd + "00:00:01" Debug.Print xd End Sub
 RUSTICO! |
|
|
|
« Última modificación: 24 Noviembre 2011, 00:36 am por Elemental Code »
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
|
seba123neo
|
Ah... entonces creo que no me va a servir.
Yo quiero simplemente un contador de Horas:Minutos:Segundos. No tiene nada que ver con el arranque de la PC o sesión. Y que se pueda reinciar cuando lo desee.
dijiste "uptime", eso significa desde que inicio la pc... usa un Timer comun o si queres hacerlo mas copado, con las api de Timers.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Run-Time Error 339
Programación Visual Basic
|
NYlOn
|
2
|
1,881
|
2 Septiembre 2005, 03:45 am
por NYlOn
|
|
|
|
Red Time 2.2
Programación Visual Basic
|
Red Mx
|
1
|
1,790
|
2 Junio 2006, 20:47 pm
por rubeng
|
|
|
[C]Calcular pi
Programación C/C++
|
HRSLASH
|
7
|
31,058
|
23 Agosto 2010, 03:32 am
por misterharry
|
|
|
|
calcular c.
.NET (C#, VB.NET, ASP)
|
karmi
|
1
|
2,778
|
4 Marzo 2011, 07:45 am
por .mokk.
|
|
|
|
problema con mi portatil me sale enter current passwor y no puedo acceder a el
Dudas Generales
|
nani
|
1
|
1,941
|
3 Febrero 2013, 03:22 am
por simorg
|
 |
