Cálculo de feriados móveis em Gambas3
Publicado por Alvaro G B Rodrigues em 26/03/2018
[ Hits: 2.427 ]
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
Mozilla Aurora - Instalação no Ubuntu com apenas três comandos
Utilizando find + exec e agilizando tarefas
Conectando a Wireless via PPPoE no Ubuntu 10.10
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
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
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Como posso localizar o arquivo HTML da página inicial do GLPI dentro d... (2)
O que você está ouvindo agora? [2] (164)
Como baixar os drivers de áudio no linux mint? (6)
Erro ao iniciar Ubuntu 24.04.1 LTS - Management Owner Key - MoK (6)
[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