Visual Basic - Redondear Costo con Horas en VB.60

Life is soft - evento anual de software empresarial
   
Vista:

Redondear Costo con Horas en VB.60

Publicado por UrielJr (1 intervención) el 08/11/2013 04:09:44
Hola bueno antes que nada un saludo y muy bien por mantener VB 60, pues muchas personas lo dan por muerto pero lo cierto es que los programadores deciden cuando muere un lenguaje....El Problema es

Escribir un programa que calcule el tiempo transcurrido desde el registro del cliente hasta el final y multiplicarlo para obtener el total.

Hora Inicio
Hora Final

Condiciones SI consume...

1-10 Minutos no se cobra nada :)

Despues de 11 Minutos en adelante = 10 Pesos que es la cuota fija no hay costos como 11$, 12$, 13$...etc solo 10 y...

1 Hora = 10 Pesos
1 Hora a 1:10 = 10 Pesos
y tengo este código pero estoy muy novato para terminar y duras penas pude con esto, pero si alguien tiene un post o articulo aunque ya tengo bastantes manuales y soy de cabeza dura :(

Private Sub CalculaPago()

precio = 0.1

Dim t0 As Variant, t1 As Variant, tot As Variant
Dim h As Double, m As Double, s As Double, HH As Double, mm As Double, ss As Double

t0 = Format(HF, "hh:mm") 'Label Time started
t1 = Format(HI, "hh:mm") 'Label Time Finished
tot = Format(TimeValue(t0) - TimeValue(t1), "hh:mm")
h = CDbl(Mid(tot, 1, 2))
m = CDbl(Mid(tot, 4, 2))
mm = m / 60
HH = h + m
If HH >= 0.11 Then
LblConsumoHoras.Caption = h & ":" & m
LblCosto.Caption = Format(((HH * precio) * 10), "######") & " $"
Else
LblConsumoHoras.Caption = h & ":" & m
LblCosto.Caption = Format(((HH * precio) + 10), "######") & " $"
End If

End Sub


Uso VB 60 Enterprise en Windows 64 Bits, perdón por lo largo del msg
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