SLE_Practica28_FechaLarga

/* PRACTICA42_FechaLarga
Funcion que recibe 3 datos numericos, con los cuales escribe la fecha en formato largo en la pantalla:
Ej. 14 de Octubre del 2011. */

var
    dia, mes, ano:numerico
    cFecha: cadena
    resp:cadena

inicio
   cls()
   imprimir ("Indica la fecha dando los numeros correspondientes:\n")
    repetir
        imprimir ("Dia:")
        leer (dia)
        imprimir ("Mes:")
        leer (mes)
        imprimir ("Año:")
        leer (ano)
        cFecha = FechaLarga( dia, mes, ano)
        imprimir ("La fecha es: ", cFecha, "\n\n")
       imprimir ("Deseas calcular otra fecha? (s/n)")
        leer (resp)
    hasta (resp=="n")
fin

/* Modulo Fecha larga */
subrutina FechaLarga( vDia, vMes, vAno:numerico) retorna cadena
var
    fecha_larga: cadena
    cMes: cadena

inicio
    /* Identificar el mes */
   eval
    {
        caso (mes==1)
            cMes = "Enero"
        caso (mes==2)
            cMes = "Febrero"
        caso (mes==3)
            cMes = "Marzo"
        caso (mes==4)
            cMes = "Abril"
        caso (mes==5)
            cMes = "Mayo"
        caso (mes==6)
            cMes = "Junio"
        caso (mes==7)
            cMes = "Julio"
        caso (mes==8)
            cMes = "Agosto"
        caso (mes==9)
            cMes = "Septiembre"
        caso (mes==10)
            cMes = "Octubre"
        caso (mes==11)
            cMes = "Noviembre"
        caso (mes==12)
            cMes = "Diciembre"
    }

    fecha_larga = str(vDia,2,0) + " de " + cMes + " del " + str(vAno,2)
   //imprimir ("Resultado: ",fec,"\n\n")

retorna (fecha_larga)
fin