Script usando função que retorne dia, mes [RESOLVIDO]

1. Script usando função que retorne dia, mes [RESOLVIDO]

dk17
(usa Debian)

Enviado em 20/05/2013 - 22:28h

Pessoal, preciso de uma ajuda com esse script..

Desenvolva um script que receba uma data
Exemplo 21 07 1999
Retorne o dia e o mês por extenso..

Queria saber se tem um metodo mais facil, algum comando para facilitar..
que retorne o dia e o mes

0 0

Quote

2. Re: Script usando função que retorne dia, mes [RESOLVIDO]

danniel-lara
(usa Fedora)

Enviado em 21/05/2013 - 09:01h

fiz uma pesquisa na net e achei isso





algoritmo "data_ex"

// Função : Exibir data por extenso

// Autor : Rodrigo

// Data : 05/06/2010

// Seção de Declarações

var

dia, mes, ano: inteiro

mes_ex : caracter

inicio

// Seção de Comandos

escreva ("Digite um dia: ")

leia (dia)

escreva ("Digite um mes: ")

leia (mes)

escreva ("Digite um ano: ")

leia (ano)



escreval ("Sua data foi: ",dia," /",mes," /",ano)



se (mes = 1) ou (mes = 01) entao

   mes_ex <- "Janeiro"

senao

   se (mes = 2) ou (mes = 02) entao

      mes_ex <- "Fevereiro"

   senao

      se (mes = 3) ou (mes = 03) entao

         mes_ex <- "Março"

      senao

         se (mes = 4) ou (mes = 04) entao

            mes_ex <- "Abril"

         senao

            se (mes = 5) ou (mes = 05) entao

               mes_ex <- "Maio"

            senao

               se (mes = 6) ou (mes = 06) entao

                  mes_ex <- "Junho"

               senao

                  se (mes = 7) ou (mes = 07) entao

                     mes_ex <- "Julho"

                  senao

                     se (mes = 8) ou (mes = 08) entao

                        mes_ex <- "Agosto"

                     senao

                        se (mes = 9) ou (mes = 09) entao

                           mes_ex <- "Setembro"

                        senao

                           se (mes = 10) entao

                              mes_ex <- "Outubro"

                           senao

                              se (mes = 11) entao

                                 mes_ex <- "Novembro"

                              senao

                                 se (mes = 12) entao

                                    mas_ex <- "Dezembro"

                                 fimse

                              fimse

                           fimse

                        fimse

                     fimse

                  fimse

               fimse

            fimse

         fimse

      fimse

   fimse

fimse



escreval ("Data por extenso: ",dia," de ",mes_ex," de",ano)

fimalgoritmo