Pages

lunes, 4 de febrero de 2013

Convertir una fecha en letras Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que permita determinar Ingresar el día, mes y año en el formato numérico (2-11-2001), para luego mostrarlo el formato carácter (2 de Noviembre del 2001).

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mes() As String = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
        Dim d, m, a As Integer
        d = TextBox1.Text
        m = TextBox2.Text
        a = TextBox3.Text
        TextBox4.Text = Trim(d) + " de " + Mes(m - 1) + " del " + Trim(a)
    End Sub
End Class

1 comentarios:

Anónimo dijo...

Gracias!! Me sirvió de mucho!!! :D

Publicar un comentario en la entrada