Cálculo de feriados móveis em Gambas3
Publicado por Alvaro G B Rodrigues em 26/03/2018
[ Hits: 2.438 ]
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
Simples pós-instalação do Debian 9 (Strech)
Vocês conhecem o BrasilTTS? A voz do Linux em Português - Finalmente o seu Linux falando com você!
Usando o Linux com o driver VESA
Listar o modelo e o serial number da máquina no Linux
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta