¿Como hacer el RFC en Visual Basic????
Tengo que hacer esto:
Nombre JORGE
Ap Paterno LARIOS
Ap Materno RIOS
Fecha de Nacimiento
Dia : 18
Mes : Enero
Año: 1980
LARJ188001
Pero tengo problemas para añadir la letras a un textbox un label alguien me podria ayudar............
Soy nuevo con esto de la programacion en VB Gracias
More Questions From This User See All
Answers & Comments
Verified answer
saludos amigo, puedes usar este código:
Dim nombre As String, paterno As String, materno As String
Dim dia As Integer, mes As String, anno As Integer
nombre = Microsoft.VisualBasic.Left(TextBox1.Text, 1)
paterno = Microsoft.VisualBasic.Left(TextBox2.Text, 2)
materno = Microsoft.VisualBasic.Left(TextBox3.Text, 1)
dia = Val(TextBox4.Text)
Select Case TextBox5.Text
Case "enero"
mes = "01"
Case "febrero"
mes = "02"
Case "marzo"
mes = "03"
Case "abril"
mes = "04"
Case "mayo"
mes = "05"
Case "junio"
mes = "06"
Case "julio"
mes = "07"
Case "agosto"
mes = "08"
Case "septiembre"
mes = "09"
Case "octubre"
mes = "10"
Case "noviembre"
mes = "11"
Case "diciembre"
mes = "12"
End Select
anno = Microsoft.VisualBasic.Right(TextBox6.Text, 2)
TextBox7.Text = UCase(paterno & materno & nombre & TextBox4.Text & anno & mes)
espero te sea de utilidad...