Duda

[lobo_rimay]

Bueno esto no lo he visto asi que lo posteo y tambien es duda mia... bueno al Grano

Deseo hacer un Control de Entradas y Salidas...

estoy tomando el Tiempo del Sistema "Time"

ahora el chiste es este

Quiero  hacer que el mismo programa me diga la Diferencia del Tiempo de entrada y Salda... y a su vez me permita mostrar una Cantidad... es decir un Control para un Ciber Cafe...  me Xplique???

espero y se pueda... gracias

[zXxOsirisxXz]

Ya ise un ciber cafe antes, y fue mucho codigo, bueno al grano.

para hace un tiempo, podrias poner un timer, un text box, un command button y un label.

El codigo seria:

Dim contador As Integer

Private Sub Command1_Click()
On Error GoTo lol
contador = Text1
Timer1.Enabled = True
GoTo fin
lol:
MsgBox "No tiene nada en el textbox"
fin:
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interva l = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = contador
contador = contador - 1
If contador <= -1 Then
MsgBox "tiempo agotado"
Timer1.Enabled = False
Else
End If
End Sub

Pero ojo, el -1 es pk le puse Timer1.enabled = false.. para k se vea el 0 en el label.

Salu2

[lobo_rimay]

oks oks... mil grax... pero bueno xplore un pco el Foro y encontre una Forma mas de tomarlo se las Xplico

Vamos a Necesitar 4 Textbox y 3 Command Button
 
por que tanto... ahora lo veras

Private Sub Command1_Click()
    Text1.Text = Format(Now, "hh.mm")
End Sub
Private Sub Command2_Click()
    Text2.Text = Format(Now, "hh.mm")
End Sub
Private Sub Command3_Click()
    Text3.Text = (Text2.Text - Text1.Text) * (Text4.Text / 60)
End Sub

Lo Xplico... el Primer Boton Tomara el Tiempo de la PC  cuando es Ocupada
El Segundo Tomara el Tiempo de Salida... (obiamente esto se puede omprimir a un solo Boton... solo que para xplicarme mejor)
y El tercer Boton hace los Calculos

Ahora.. el Format su funcion es mostrar el momento de hoy pero con un Formato que lo indiquemos... en este caso (HH.MM)  nos Dara un Resultado asi:
Ejemplo
si son las 10:50 --------> 10.50 lo maneja de la misma forma solo que cambia el "."

Ahopra el Text4. es un Indicativo de cuanto cobraremos la Hr en Renta en esta Imagen de Abajo sale en 0 ya que no ha transcurrido nada de Tiempo... pero si hace los calculos

[zXxOsirisxXz]

Eso te dara la hora en estilo 1~24.

Ahora bien, lo del ":", es nomas k se lo pongas en el comando.

Format(Now, "hh:mm")

Lo cual significa:

Format: Formato en el cual se pondra..ya que mucho..

Now = Hora Actual

hh = 2 bloques para poner la Hora (Hour)
mm = 2 bloques o caracteres para poner los minutos (Minutes)
ss = 2 bloques para poner los segundo (Seconds) [En caso de kk kieras agregarlo...]

Y por lo otro.. me parece k esta bien, solo keria darte otra pekenia info..

Salu2.