23/01/2002, 10:03
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| Re: Chilenos¡¡ Alguien sabe el ASP para RUT
2da parte:
Private Sub Tex_RutCli_LostFocus()
If Tex_RutCli.Text <> "" Then
LC_Rut = CLng(Tex_RutCli)
Select Case Len(Tex_RutCli.Text)
Case 1
Tex_RutCli.Text = "00.000.00" & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 2
Tex_RutCli.Text = "00.000.0" & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 3
Tex_RutCli.Text = "00.000." & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 4
Tex_RutCli.Text = "00.00" & Mid$(Tex_RutCli.Text, 1, 1) _
& "." & Mid$(Tex_RutCli.Text, 2, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 5
Tex_RutCli.Text = "00.0" & Mid$(Tex_RutCli.Text, 1, 2) _
& "." & Mid$(Tex_RutCli.Text, 3, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 6
Tex_RutCli.Text = "00." & Mid$(Tex_RutCli.Text, 1, 3) _
& "." & Mid$(Tex_RutCli.Text, 4, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 7
Tex_RutCli.Text = "0" & Mid$(Tex_RutCli.Text, 1, 1) _
& "." & Mid$(Tex_RutCli.Text, 2, 3) & "." & Mid$(Tex_RutCli.Text, 5, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 8
Tex_RutCli.Text = Mid$(Tex_RutCli.Text, 1, 2) & "." & Mid$(Tex_RutCli.Text, 3, 3) _
& "." & Mid$(Tex_RutCli.Text, 6, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
End Select
End If
End Sub
;) nos vimos |