Convers O De Datas

CONVERSÃO DE DATAS
Grupo :
Adriano Rodrigues
Bruno Amaral
Caroline Evangelista
Fabio Antonio
Jefferson Alexandre
Renilson Torquarto

Caso 1
Construir um programa que represente um menu de opções para cálculos com datas. Cada opção escolhida deverá efetuar a operação escolhida utilizando uma ou mais funções.
• A tela deverá conter as seguintes opções:
• Dia da semana por extenso
• Dia do mês por extenso
• Conversão para Data Militar

Problemas principais encontrados: - Ano Bissexto
- Digitação incorreta da opção. - Funções

var op,op2,dia,mes,dia2,mes2,ano : inteiro
LData, Res, Status : Inteiro
NData1, NMes, NDia : Inteiro
Adia : vetor[1..30] de caracter
Ames : vetor[1..12] de caracter inicio //Inicio das Funções
FUNCAO BData(XData : inteiro; Result : inteiro) : inteiro
Inicio
se (XData % 100 = 0) entao
Result <- 0
// Data Nula senao se XData % 400 = 0 entao
Result <- 0
// Ano Bissexto senao Result <- 1
// Ano Normal fimSe fimSe retorne (Result) fimFuncao FUNCAO CDiaSemana (XData1, XData, XMes, XDia : inteiro ; Result : Inteiro) : inteiro var Dia : vetor [0..6] de caracter
Mes : vetor [1..12] de inteiro
Ax, Bx, Cx, Dx, Ex, Ox : Inteiro
Inicio
Dia [0] <- "Segunda"
Dia [1] <- "Terça"
Dia [2] <- "Quarta"
Dia [3] <- "Quinta"
Dia [4] <- "Sexta"
Dia [5] <- "Sábado"
Dia [6] <- "Domingo"
Mes [1] <- 0
Mes [2] <- 3
Mes [3] <- 3
Mes [4] <- 6
Mes [5] <- 1
Mes [6] <- 5
Mes [7] <- 6
Mes [8] <- 2
Mes [9] <- 4
Mes [10] <- 0
Mes [11] <- 2
Mes [12] <- 5
// Ano
Ax <- XData
Bx <- int(Ax / 7) se Result = 1 entao
// Status: retorna bissexto se = 1
Bx <- BX -1 fimSe Cx <- Mes [XMes]
Dx <- XMes - 1
Ex <- Ax + Bx + Cx + Dx
Ox <- Ex MOD 7 escreva (" O dia da semana da data ",LData,"/",NMes, "/" ,NDia, " é ", Dia [Ox]) fimFuncao //Fim das funções

//Atribuição de valor do vetor Adia:
Adia[1]<-"Um"
Adia[2]<-"Dois"
Adia[3]<-"Três"
Adia[4]<-"Quatro"
Adia[5]<-"Cinco"
Adia[6]<-"Seis"
Adia[7]<-"Sete"
Adia[8]<-"Oito"
Adia[9]<-"Nove"
Adia[10]<-"Dez"
Adia[11]<-"Onze"
Adia[12]<-"Doze"