Cálculo de feriados móveis em Gambas3
Publicado por Alvaro G B Rodrigues em 26/03/2018
[ Hits: 2.421 ]
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
Listar o modelo e o serial number da máquina no Linux
Samba - Configurando grupo de administradores
PHP com suporte a Oracle no Slackware 10
Instalando Debian em servidores DELL
Instalando o KDE 4.1 no Debian
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
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
Os navegadores "leves" que de leves não tem nada
Liberte-se: Crie um Servidor Proxy na Nuvem para Acessar Conteúdos Bloqueados
Fedora Kinoite 40 — Instalação de drivers NVIDIA e Xorg
Deixando o Opensuse Tumbleweed com KDE bonitão
Estrutura de recuo PHP/Apache para não acessarem arquivos pela URI (barra de endereços)
Escanear a rede com NBTSCAN para descobrir IPs e nomes de computadores
Como instalar ou remover ambientes gráficos facilmente no openSUSE
Problemas com acesso a Pasta Comparilhada em Rede (0)