Cálculo de feriados móveis em Gambas3
Publicado por Alvaro G B Rodrigues em 26/03/2018
[ Hits: 2.312 ]
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
Acessar a Internet pelo celular Nokia 5130c-2 via cabo USB
Red Hat Network - Um breve conceito
Instalação do VirtualBox no Fedora Linux
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
iso de sistema 32 bit em atividade (18)
erro ao clonar repo github (11)