llamada a procedimiento o argumento no validos
Publicado por carlos (1 intervención) el 25/09/2015 20:31:07
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
38
39
Private Function separa_x_y(a$, este, norte, cota)
adat$ = a$num_car = Len(adat$)
i = 1While Asc(Mid$(adat$, i, 1)) = 32
i = i + 1
Wend
While Asc(Mid$(adat$, i, 1)) <> 32
caracter$ = Mid$(adat$, i, 1)
VALOR$ = VALOR$ + caracter$
i = i + 1
Wend
este = Val(VALOR$)
VALOR$ = ""
i = i + 1
While Asc(Mid$(adat$, i, 1)) = 32
i = i + 1
Wend
While Asc(Mid$(adat$, i, 1)) <> 32
caracter$ = Mid$(adat$, i, 1)
VALOR$ = VALOR$ + caracter$
i = i + 1
Wend
norte = Val(VALOR$)
VALOR$ = ""
i = i + 1
For m = i To num_carcaracter$ = Mid$(adat$, i, 1)
VALOR$ = VALOR$ + caracter$
i = i + 1
Next m
cota = Val(VALOR$)
VALOR$ = ""
End Function
ayuda con esta subrutina please!
No me corre el programa.. me dice q la llamada a procedimiento o argumento no validos
Valora esta pregunta
0