Fecha

Programa para cambiar la fecha a letras .

La siguiente es la programación:

Private Sub Command1_Click()

If Text2.Text = "2" Then

    Label4 = Text1.Text + " de febrero de " + Text3.Text

End If

If Text2.Text = "1" Then

    Label4 = Text1.Text + " de enero de " + Text3.Text

End If

If Text2.Text = "3" Then

    Label4 = Text1.Text + " de marzo de " + Text3.Text

End If

If Text2.Text = "4" Then

    Label4 = Text1.Text + " de abril de " + Text3.Text

End If

If Text2.Text = "5" Then

    Label4 = Text1.Text + " de mayo de " + Text3.Text

End If

If Text2.Text = "6" Then

    Label4 = Text1.Text + " de junio de " + Text3.Text

End If

If Text2.Text = "7" Then

   Label4 = Text1.Text + " de julio de " + Text3.Text

End If

 If Text2.Text = "8" Then

    Label4 = Text1.Text + " de agosto de " + Text3.Text

End If

If Text2.Text = "9" Then

    Label4 = Text1.Text + " de septiembre de " + Text3.Text

End If

If Text2.Text = "10" Then

    Label4 = Text1.Text + " de octubre de " + Text3.Text

End If

If Text2.Text = "11" Then

    Label4 = Text1.Text + " de noviembre de " + Text3.Text

End If

If Text2.Text = "12" Then

    Label4 = Text1.Text + " de diciembre de " + Text3.Text

End If

  

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label4 = ""

End Sub

Private Sub Command3_Click()

End

End Sub