SHOW:
|
|
- or go back to the newest paste.
| 1 | CLS | |
| 2 | DIM RUT AS STRING | |
| 3 | COLOR 0, 7 | |
| 4 | LOCATE 1, 30: PRINT "Validar Rut Chileno." | |
| 5 | COLOR 7, 0 | |
| 6 | INPUT "Ingrese su rut (sin puntos ni guion): ", RUT$ | |
| 7 | Cant = LEN(RUT$) | |
| 8 | SELECT CASE Cant | |
| 9 | - | CASE 7: |
| 9 | + | CASE 7: 'Rut con formado: 700.000-k |
| 10 | Digitos$ = MID$(RUT$, 1, 6) | |
| 11 | - | Verificador$ = MID$(RUT$, 7, 7) |
| 11 | + | Verificador$ = MID$(RUT$, 7, 1) |
| 12 | - | PRINT Digitos$ + "-" + Verificador$ |
| 12 | + | FOR n = 1 TO 6 |
| 13 | - | CASE 8: |
| 13 | + | Digitos(n) = VAL(MID$(Digitos$, n, 1)) |
| 14 | NEXT | |
| 15 | - | Verificador$ = MID$(RUT$, 8, 8) |
| 15 | + | |
| 16 | - | PRINT Digitos$ + "-" + Verificador$ |
| 16 | + | CASE 8: 'Rut con formato 1.000.000-k |
| 17 | Digitos$ = MID$(RUT$, 1, 7) | |
| 18 | - | CASE 9: |
| 18 | + | Verificador$ = MID$(RUT$, 8, 1) |
| 19 | FOR n = 1 TO 6 | |
| 20 | - | Verificador$ = MID$(RUT$, 9, 9) |
| 20 | + | Digitos(n) = VAL(MID$(Digitos$, n, 1)) |
| 21 | - | PRINT Digitos$ + "-" + Verificador$ |
| 21 | + | NEXT |
| 22 | ||
| 23 | ||
| 24 | CASE 9: 'Rut con formato 10.000.000-k | |
| 25 | Digitos$ = MID$(RUT$, 1, 8) | |
| 26 | Verificador$ = MID$(RUT$, 9, 1) | |
| 27 | FOR n = 1 TO 6 | |
| 28 | Digitos(n) = VAL(MID$(Digitos$, n, 1)) | |
| 29 | NEXT | |
| 30 | ||
| 31 | END SELECT |
