Mensajes

Creo que tienes un mal enfoque no necesitas asignar un valor monetario a una fecha
mira este ejemplo solo basta con hacer unas simple multiplicacion y division

Código (vbnet) [Seleccionar] Expandir


                Dim fechaini As DateTime
Dim fechafin As DateTime
Dim cobro As Integer=0

DateTime.TryParse("12:00", fechaini)
DateTime.TryParse("12:30", fechafin)

Dim dif As TimeSpan = fechafin - fechaini

If dif.Hours>=1 Then
cobro=cobro+(500*dif.Hours)

If dif.Minutes>15 Then
Dim n15min As Integer =dif.Minutes\15
cobro =cobro+n15min*150
End If

ElseIf dif.Minutes>=1 Then
cobro=500
End If


Console.WriteLine("Han transcurridos " & dif.Hours & ":" & dif.Minutes & " hrs.")
Console.WriteLine("El costo total es de "+Convert.ToString(cobro))
Console.ReadLine()


Si algo anda mal o no es lo que buscas me avisas
saludos...

muchas gracias crack 81  por responder tan prontamente pero tu codigo lo hice correr
no funciona si por ejemplo pongo las 12:00 y salio 13:15 ya deberia combrarme $650
no lo hace pero si le pongo 12:00 y 13:30 cobra 800 eso esta bien

buenas noches
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

Código (vbnet) [Seleccionar] Expandir


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.")