Pasar de segundos a horas

[culd]

Ejemplo

Si pongo 120 segundos que devuelva...

00:02:00

Si pongo 125 segundos que devuelva...
00:02:05

Si pongo 3730 segundos que devuelva...
01:02:10

Y asi...

[culd]

Me autorespondo...

Estuve probando.. y saque esto...

Código:

Dim t0 As Variant, t1 As Variant
Dim X As Integer

For X = 1 To Text1
    t0 = Format("00:00:01", "hh:mm:ss")
    t1 = Format(Text2, "hh:mm:ss")
    Text2.Text = Format(TimeValue(t1) + TimeValue(t0), "hh:mm:ss")
    Label1 = Format(TimeValue(t1) + TimeValue(t0), "hh:mm:ss")
Next X

Funciona para lo que quiero...

Pero si alguien tiene algo mas rentable.. se agradece...

PD: Paso a explicar para el que le interesa...
Text1, tiene la cantidad de segundos...
Text2, tiene 00:00:00
Lo que va haciendo por cada segundo del Text1, le suma al Text2 + 00:00:01...

No se si explique bien

--------------------------------------------------------
EDITO:

Ahora hise una funcion que devuelve un String con el resultado HORAS:MINUTOS:SEGUNDOS
Solo hay que mandarle la cantidad de segundos, y devuelve el resultado.

Código:

Public Function SumarTiempo(Segundos As Integer) As String
Dim A As Variant, B As Variant
Dim X As Integer
Dim T As String

T = "00:00:00" 'Lo inicializamos en 0 horas, 0 minutos, 0 segundos
A = Format("00:00:01", "hh:mm:ss") 'guardamos en una variable el formato de 1 segundos

For X = 1 To Segundos 'hacemos segundo a segundo
    B = Format(T, "hh:mm:ss") 'En B guardamos un formato de hora:minuto:segundo segun lo que tenia T
    T = Format(TimeValue(A) + TimeValue(B), "hh:mm:ss") 'asignamos a T la suma de A + B (osea, sumamos logicamente 1 segundo)
Next X

SumarTiempo = T 'a la funcion le damos el valor que hallamos en T
End Function

Sigo insistiendo. Si alguien tiene algo mas rapido y versatil, por favor pongalo.

[GeoAvila]

en las faq's hay un ejemplo lo deberías revisar...

nos vemos..

[darkhack]

Cada vez que me encuentro con una respuesta tuya dice:

Iniciado por GeoAvila

en las faq's hay un ejemplo lo deberías revisar...
nos vemos..

jajajaja que malo Por lo menos deja un link o una pista para saber con que titulo buscarlo en las FAQ'S

[GeoAvila]

m... ok aqui esta no llorés jajajaja

http://www.forosdelweb.com/showpost....6&postcount=35

nos vemos..

[[EX3]]

Yo uso este codigo en algunos programas donde trabajo los tiempos en segundos:

Código:

Option Explicit

 Private Sub Form_Load()
Dim Horas As Long, Minutos As Long, Segundos As Long

Call Get_Time(9325, Horas, Minutos, Segundos)

MsgBox Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")

 End Sub

 'Devuelve el tiempo en Horas, Minutos y Segundos:
 Private Sub Get_Time(TimeInSeconds As Long, Hours As Long, Minutes As Long, Seconds As Long)
 Dim Sec As Long, Min As Long, Hour As Long

Sec = TimeInSeconds

Do While Sec >= 60
    Sec = Sec - 60
    Min = Min + 1
Loop

Do While Min >= 60
    Min = Min - 60
    Hour = Hour + 1
Loop

Hours = Hour
Minutes = Min
Seconds = Sec

 End Sub 

Salu2...

[darkhack]

jajajaja Gracias por el link GeoAvila

[Beakdan]

Y asi...

...¿hasta qué número? Si el límite no pasa del rango de un Integer, para eso tienes la función TimeSerial.

Código:

TimeSerial(0,0 , 32767)