buenas noches

amigos programadores 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 mi codigo para sumar las horas

Código:

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

Hola, se me ocurre por condicionantes.

If dif < 60 Then
Precio = 500
Else
Precio = 500 + (((dif - 60)/15) * 150)
End If

Algo así, espero que te ayude la idea.

gracias por responder selstam voy revisar