Cálculo de feriados móveis em Gambas3
Publicado por Alvaro G B Rodrigues em 26/03/2018
[ Hits: 2.621 ]
Public Function FeriadoMovel(Ano As Integer) As Date Dim a, b, c, d, e, f, g, h, i, k, l, m, mes, dia As Integer Dim Pascoa As Date a = Ano Mod 19 b = Int(Ano / 100) c = Ano Mod 100 d = Int(b / 4) e = b Mod 4 f = Int((b + 8) / 25) g = Int((b - f + 1) / 3) h = (19 * a + b - d - g + 15) Mod 30 i = Int(c / 4) k = c Mod 4 l = (32 + 2 * e + 2 * i - h - k) Mod 7 m = Int((a + 11 * h + 22 * l) / 451) mes = Int((h + l - 7 * m + 114) / 31) dia = ((h + l - 7 * m + 114) Mod 31) + 1 Pascoa = CDate(mes & "/" & dia & "/" & Ano) Return Pascoa End Function Public Sub Button1_Click() Dim ano As Integer Dim pascoa As Date Dim sexta As Date Dim carna As Date Dim corpus As Date txtAno.Select() ano = CInt(txtAno.Text) pascoa = FeriadoMovel(ano) sexta = DateAdd(pascoa, gb.day, -2) carna = DateAdd(pascoa, gb.day, -47) corpus = DateAdd(pascoa, gb.day, 60) txtPascoa.Text = Format$(pascoa, "dd/mm/yyyy") txtCarna.Text = Format$(carna, "dd/mm/yyyy") txtSexta.Text = Format$(sexta, "dd/mm/yyyy") txtCorpus.Text = Format$(corpus, "dd/mm/yyyy") End
Editor Vim - Introdução e trabalhando com Vim
Busca em texto com o método de Boyer Moore
Falta de Codecs de Áudio e Vídeo no Debian [RESOLVIDO]
Aprenda como instalar e configurar o XDEBUG no PHP
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como converter imagens PNG/JPEG para SVG em linha de comando
Fez porcaria no teu repositório Git? Aprenda a restaurar uma versão anterior do seu código!
Restaurando Fontes de Download do Hydra no Linux
Atualizando "na marra" o YT-DLP quando começa a dar erro de downloads
Como instalar o WPS com interface e corretor ortográfico em PT-BR no Arch Linux
Mudar ícone do favorito "encerrar sessão" do Debian 12.10, c... (0)
[AJUDA] Problemas ao atualizar BIOS da Gigabyte B550M K rev. 1.1 — “RO... (6)
Comprei thin client dell wyse tx0 3010 ele tá com Login é senha nao v... (0)