Microsoft Visual Basic tem uma variedade de funções internas , incluindo para o cálculo e convertendo datas. Um pouco de pensamento aplicado à definição de um ano bissexto, combinado com a função Visual ÉData Basic, irá permitir-lhe para calcular os anos bissextos com o Visual Basic. Coisas que você precisa
Microsoft Word, Excel ou outro programa que contém o IDE do Visual Basic ( ambiente de desenvolvimento integrado )
Mostrar Mais instruções
1

Abra o Microsoft Word e criar um documento chamado " LeapYear.doc ". Digite o MS Word IDE Visual Basic pressionando Alt- F11.

Selecione o módulo correto para que você digite o código do programa . No painel Project no lado esquerdo da janela do IDE , clique no sinal de mais ( +) sinal à esquerda do item " Projetos ( LeapYear ) . " Clique no sinal de mais da pasta "Objetos do Microsoft Word ", que aparece imediatamente abaixo "Projeto ( LeapYear ) . " Clique duas vezes em " ThisDocument ".
2

Digite o código do programa. Na janela de código em branco , digite ou copie e cole o seguinte código de programa :

IsLeapYear Função Pública ( sYear As Variant ) Função IsLeapYear = IsDate ( sYear ) Fim

Public Sub NextLeapYear () Dim sYear , sDate , msgDim ano , startYear , nIterDim myDate

'Walk -se a partir do ano em questão até que encontremos um ano bissexto

startYear = 1981

yr = startYearnIter = 0myDate = " 2/29 /" & ano

Do While ( ( IsLeapYear ( myDate ) = False) e niter <10) niter niter = + 1ano = yr + 1myDate = " 2/29 /" & ano

loop

Se ( niter <10) Thenmsg = " O próximo ano bissexto após " & startYear & " é" & yrMsgBox (msg ) End If End Sub

3

Altere a variável " startYear " para conter o ano que você deseja calcular o próximo ano bissexto para . Posicione o cursor em qualquer lugar dentro da função NextLeapYear e pressione F5. O programa é executado, revelando o próximo salto em ou antes do ano em que você entrou .
4

Criar a interface do usuário . Selecione o código do programa completo que você digitou e cortá-la para a área de transferência (Ctrl- X). Clique no "Projeto ( LeapYear ) " item no painel de Project novamente , em seguida, vá para o menu "Inserir" e escolha a opção " Formulário de Usuário". . Arrastar e soltar uma caixa de texto e um botão de comando no formulário, com o botão posicionado sob a caixa de texto

Dê um duplo clique no botão e tipo ( não copie e cole) o seguinte código : function CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ) )

Posicione o cursor em qualquer espaço de código aberto fora da função CommandButton1_Click . Cole o código que você previamente cortados para a área de transferência .
5

Mudança NextLeapYear ser uma função . Altere a linha de NextLeapYear abertura com a seguinte redacção : . Função Pública NextLeapYear ( startyear )

Excluir a variável startYear de entre as várias declarações Dim , e apagar a linha startyear = 1981

Substitua o variável msg com o nome da função ( NextLeapYear ) na instrução msg = "O próximo salto ... "

Excluir a instrução MsgBox que se segue que " NextLeapYear =" declaração . Verifique se os últimos três linhas de código em função NextLeapYear ter a seguinte redacção .

Se ( Niter <10) ThenNextLeapYear = " O próximo ano bissexto após " & startyear & " é" & yrEnd Se

6

Use seu programa de ano bissexto. Enquanto no interior janela de código UserForm1 , pressione F5 , digite um ano na caixa de texto e pressione o botão.