Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Software para Parqueaderos Gratis

L

lenín díaz

Becerro
Desde
4 Feb 2009
Mensajes
8
Hola Vacunos,

Adquirí un lote de tierra y lo pienso utilizar de parqueadero, empece a desarrollar un aplicativo en Basic 6.0 para administrarlo... pero me gano el tema de la resta de las horas de entrada vs la de salida.

mi intención es saber si pueden ayudarme con un sistema gratuito que exista o con la sentencias para lograr restar las 2 variables y el resultado me lo de en numero para multiplicarlo por el valor de la hora.

Private Sub CMD_REVISAR_Click()

Dim busca As String
Dim hen As Variant
Dim hsa As Variant
Dim dif As Variant
Dim cobrar As Double

busca = UCase(Trim(TXT_PLACA.Text)) & "%"
Adodc_DATOS.RecordSource = "select * from datos where [placas] like '" & busca & "'"

TXT_HORA_ENT.Text = busca

hen = Format(TXT_HORA_ENT.Text, "hh:mm")
hsa = Format(Date, "hh:mm")

dif = Format(TimeValue(hsa) - TimeValue(hen), "hh:mm")


cobrar = Format(dif, H) * 1000

TXT_DIFERENCIA.Text = dif
TXT_TOTAL = cobrar

End Sub



Gracias de antemano!!
 
Haber si te entendi....te dejo una imagen lo que yo entendi....
 
Che imagen se me olvido...aqui ta.....
e4bb18513212326.jpg
[/URL] [/IMG]
 
Extraño el boton Editar.....bueno ya se subio...saludos.
 
es muy sencillo solo usa tu imaginación
poner un time para contar el tiempo
el timer lo pones a 1000 para que cada segundo sume los segundo a un label o caja de texto

segundos1.Text = segundos1.Text + 1

If segundos1.Text = 60 Then
TextBoxMin.Text = TextBoxMin.Text + 1
segundos1.Text = 0
End If

a un botón le pones para que active el timer y otro para detener el tiempo
para la caja de texto de los minutos

Private Sub TextBoxMin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxMin.TextChanged
Cobrar1.Text = Val(Cobrar1.Text) + Val(TextBoxCostoxmin.Text)
If TextBoxMin.Text = 60 Then
TextBoxHrs.Text = TextBoxHrs.Text + 1
TextBoxMin.Text = 0
End If
hay muchas maneras para hacer que funcione yo utilizo solo minutos para usar menos elementos. en una lavandería vi un manguera entendida por donde pasa los autos, supongo que activa un timbre o algo así, pues puedes adaptar algo así para que cuando entre un auto el tiempo empiece ya cuando salga se detenga el tiempo y te de el costo de renta, solo que requiere que utilices un puerto com. o KeyPress para activar el tiempo
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba