Visual Basic - llamada a procedimiento o argumento no validos

Life is soft - evento anual de software empresarial
   
Vista:

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 = 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
     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_car
     caracter$ = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder