Visual Basic - error 13 visual basic

Life is soft - evento anual de software empresarial
   
Vista:

error 13 visual basic

Publicado por felipe borquez (1 intervención) el 09/11/2014 05:09:51
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
 Dim THr As String, Entero_hr As String, cobro As String, HS As String, HE As String
 HE = InputBox("hora de entrada", "Estacionamiento", "00:00")
 valor = Val(HE)
 HS = InputBox("hora de Salida", "Estacionamiento", "00:00")
 valor = Val(HS)
 
THr = DateDiff("n", HE, HS)
Entero_hr = Int(THr)
Resto_hr = Int(HS - HE) Mod 100
If Enter_hr = 0 Then
    If Resto_hr > 0 Then
        cobro = 1000
    Else
        cobro = (Entero_hr * 1000)
    End If
Else
    If Enter_hr = 1 Then
        If Resto_hr > 0 Then
            cobro = (Entero_hr * 1000) + 600
        Else
            cobro = (Entero_hr * 1000)
        End If
    Else
    If Entero_hr > 1 Then
            If Resto_hr > 0 Then
                cobro = 1000 + (Entero_hr - 1) * 600 + 600
            Else
                cobro = 1000 + (Entero_hr - 1) * 600
 
    End If
    End If
    End If
 
End If
    MsgBox (" el monto a pagar es de " & cobro)
End Sub


al momento de ejecutarlo uno ingresa la hora de entrada y salida pero despues de ingresarlas me tira error 13 por fa alguna sugerencia o algo que cambiar
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
Imágen de perfil de andres guerrero

error 13 visual basic

Publicado por andres guerrero (698 intervenciones) el 12/11/2014 02:46:23
Intenta en la linea que se te cae

Resto_hr = Int(Val(HS) - Val(HE)) Mod 100

Por que al querer restar estas enviando 10:00 - 11:00

Lo que deberia ser 10-11

Saludos
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