resulta q en su tutorial de vb6 en la parte de elementos del lenguaje se hace una especie de cronomero, hice todo tal y cal este es mi codigo.... pero veo q cuando le das inicio parada y lo demas, sale hh:mm:ss no la hora los minutos y segundos. gracias a los que me puedan ayudar, a los que no igual
Dim hParada As String
Dim tiempo As String
Dim hInico As String


Private Sub cmdInicio_Click()
HInicio = Now
txtHinicio.Text = Format$("hh:mm:ss")
cmdInicio.Enabled = False
cmdParada.Enabled = True
End Sub

Private Sub cmdParada_Click()
hParada = Now
tiempo = "hParada - HInicio"
txtHParada.Text = Format$("hh:mm:ss")
txtTTranscurrido.Text = Format$("hh:mm:ss")
cmdInicio.Enabled = True
cmdParada.Enabled = False
End Sub

El error es que la funcion Format$ le falta un parametro, osea tienes que decirle primero a que variablele va aplicar el formato, en tu caso seria:


txtHinicio.Text = Format$(HInicio, "hh:mm:ss") y asi todas las demas


PD: La función Format o Format$, lo que hace es aplicar un estilo a una variable

Iniciado por Jamec

El error es que la funcion Format$ le falta un parametro, osea tienes que decirle primero a que variablele va aplicar el formato, en tu caso seria:


txtHinicio.Text = Format$(HInicio, "hh:mm:ss") y asi todas las demas


PD: La función Format o Format$, lo que hace es aplicar un estilo a una variable

te lo agradezco, ahora en el tutorial hay un error dicen q lo hagas con ";" por eso yo omiti ese simbolo, porq cuando lo ponia me salia error... gracias...

mmm ahora tengo otro porblema, despues de q arrelge todo me dice error type mistmatch 13 aqui les dejo el codigo
Dim hParada As String
Dim tiempo As String
Dim hInico As String


Private Sub cmdInicio_Click()
HInicio = Now
txtHinicio.Text = Format$(HInicio, "hh:mm:ss")
cmdInicio.Enabled = False
cmdParada.Enabled = True
End Sub

Private Sub cmdParada_Click()
hParada = Now
txtHParada.Text = Format$(hParada, "hh:mm:ss")
txtTTranscurrido.Text = Format$(tiempo, "hh:mm:ss")
tiempo = (hParada - HInicio)
cmdInicio.Enabled = True
cmdParada.Enabled = False
End Sub

aa i me subraya la linea que dice tiempo=(hparada-Hinicio)
gracias y disculpen de nuevo


Edited by: Alkaline

Hola Alkaline


Pasa eso porque no puedes hacer la resta de dos variables de tiempo
Con esto se soluciona :


Pon esto :


tiempo = datediff("s",hInicio,hParada)


en lugar de


tiempo = (hParada - HInicio)


la s indica segundos, si pones n en lugar de s te devolvera la diferencia en minutos.