PseInt_Practica28_FechaLarga

Proceso Practica42_FechaLarga
    //Funcion que recibe 3 datos numericos, con los cuales escribe la fecha en formato largo
    //en la pantalla. Ejemplo: 14 de Octubre del 2011
    // NOTA: Este programa no puede ser creado porque no cuenta con las funciones de
    // cadena que tiene el SLE 2.0

    Definir dia, mes, ano como entero
    definir cFecha como cadena
    definir resp como cadena

    Borrar Pantalla
    Escribir "Indica la fecha dando los numeros correspondientes"
    Repetir
        Escribir "Dia:"
        Leer dia
        Escribir "Mes:"
        Leer mes
        Escribir "Año: "
        leer ano
        cFecha = FechaLarga( dia, mes, ano)
        Escribir "La fecha es: ", cFecha
        Escribir ""
        Escribir "Deseas calcular otra fecha? (s/n)"
        leer resp

    Hasta Que resp = "n"

FinProceso

//Modulo fechalarga
subproceso fecha_larga <- FechaLarga( vDia, vMes, vAno)
    Definir fecha_larga como cadena
    Definir cMes como Cadena
    //Identificar el mes
    Segun vMes Hacer
        1:
            cMes = "Enero"
        2:
            cMes = "Febrero"
        3:
            cMes = "Marzo"
        4:
            cMes = "Abril"
        5:
            cMes = "Mayo"
        6:
            cMes = "Junio"
        7:
            cMes = "Julio"
        8:
            cMes = "Agosto"
        9:
            cMes = "Septiembre"
        10:
            cMes = "Octubre"
        11:
            cMes = "Noviembre"
        12:
            cMes = "Diciembre"
        De Otro Modo:
            cMes = "Mes invalido"
    FinSegun
    fecha_larga = vDia+ " de " + cMes + " del " + vAno

FinSubProceso