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 = 1000Else
cobro = (Entero_hr * 1000)
End If
Else
If Enter_hr = 1 Then If Resto_hr > 0 Thencobro = (Entero_hr * 1000) + 600
Else
cobro = (Entero_hr * 1000)
End If
Else
If Entero_hr > 1 Then If Resto_hr > 0 Thencobro = 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
0
