Visual Basic.NET - asignar un valor monetario a una hora vb.net

   
Vista:

asignar un valor monetario a una hora vb.net

Publicado por djnilo (21 intervenciones) el 05/02/2016 01:15:33
buenas tardes

vb.net

mysql

amigos del foro si me puede orientar por favor gracias estoy tratando de hacer una aplicación de un estacionamiento

entrada y salida de vehículos

por ejemplo un auto llego 12:00 y salio 13:00 = 01:00 estuvo una hora el cobro seria $500

¿si el vehículo estuvo ejemplo llego 12:00 y salio 12:15 = estuvo 15 minutos pero igual se le cobra los $500?

otro ejemplo si el vehiculo llego 12:00 y salio 13:15 = estuvo 01:15 entoces cada 15 minutos depues de la hora deberia cobrarse $150 cada quince minutos después de la hora


¿ pero como le asigno un valor monetario a una hora ?

este es mi codigo para sumar las horas

1
2
3
4
5
6
7
8
9
10
Dim fechaini As DateTime
        Dim fechafin As DateTime
 
        DateTime.TryParse(TextBox1.Text, fechaini) ' 12:00
        DateTime.TryParse(TextBox2.Text, fechafin) '13:00
 
 
        Dim dif As TimeSpan = fechafin - fechaini
 
        MsgBox("Han transcurridos " & dif.Hours & ":" & dif.Minutes & " hrs.")
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

asignar un valor monetario a una hora vb.net

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 05/02/2016 03:23:19
Debes tener una tabla con las horas y precios

al registrar un auto se tomara en cuenta lo que esta en la tabla de horas y precio

se monitorea horas con minutos al cumplir cierto dato se almacenara el dato de usuario horas minutos y pago correspondientes
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

asignar un valor monetario a una hora vb.net

Publicado por djnilo (21 intervenciones) el 08/02/2016 22:55:56
gracias por responder pcc.nett.2018@hotmail.com

aqui esta soluccion gracias

1
2
3
4
5
6
7
8
9
Dim dif As TimeSpan = fechafin - fechaini
        Dim tm As Integer = dif.TotalMinutes
        Dim firsthour As Double = 500
        Dim nextminutes As Double = 0
        If tm >= 75 Then '1 hour 15 minutes
            Dim m As Integer = (tm / 15) - 4 'one hours = 4 * 15 minutes
            nextminutes = m * 150
        End If
        Dim total As Double = firsthour + nextminutes
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