Visual Basic - ayuda por favor

Life is soft - evento anual de software empresarial
 
Vista:

ayuda por favor

Publicado por Fili (15 intervenciones) el 14/06/2005 20:14:15
Hola a todos, espero me puedan ayudar, bueno mi pregunta es la siguiente; tengo un programa que estoy haciendo, para el control de un ciber, la verdad es muy rustico pero bueno, por algo se empieza, bueno tengo varios text, en uno introdusco la hora de entrada, ¿como le hago? para que cuando yo precione con el mause un boton de comando me corte el tiempo y me muestre en el text de salida la hora de salida y ademas me muestre en otro text el costo, sabiendo que mi hora cuesta 10 pesos.
por favor ayudenme de antemano mil gracias, o si quieren comunicarse conmigo por msn mi correo es [email protected], gracias de nuevo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda por favor

Publicado por iván ramírez (463 intervenciones) el 30/06/2005 21:53:42
Usa la función TIME, junto con HOUR, MINUTE y SECOND si acaso también quieres medir el tiempo en minuto.

Consulta la ayuda del MSDN

Dim MiTiempo, MiHora
MiTiempo = #4:35:17 PM# ' Asigna una hora.
MiHora = Hour(MiTiempo) ' MiHora contiene 16.
MiMinuto = Minute(MiTiempo) ' MiMinuto contiene 35.

' Ejemplo de la función TIME
MiTiempo = Time ' Devuelve la hora del sistema actual.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda por favor

Publicado por Juan_K (181 intervenciones) el 30/06/2005 23:56:07
Hola .
Aqui un ejemplo sencillo
==========================================================
Private Sub cmdIniDet_Click()
If cmdIniDet.Caption = "iniciar" Then
txthoraini = Time
cmdIniDet.Caption = "Deteneer"
Else
Txthorafin = Time
'obtenemos el tiempo en minutos
txtTiempo= DateDiff("n", txthoraini , Txthorafin )
txtTotal = txttiempo * (10 / 60)
cmdIniDet.Caption = "iniciar"
End If
End Sub
==========================================================
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar