Dado 52 semanas em um ano e cinco dias úteis por semana , geralmente considerado o mesmo que dias úteis , um ano deve conter 52 vezes cinco, ou 260, dias úteis. Isso nem sempre é verdade , como visto quando você compara os calendários de vários anos. O que era um dia de negócios em um ano não pode ser na próxima . Feriados impactar o número de dias úteis em um ano também. Para obter um número mais exato de dias úteis, use este pequeno programa Visual Basic. Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
1
Criar um formulário no Visual Basic para manter a interface do usuário para este programa. Abra o Visual Basic e selecione " Standard EXE " do visor do modelo. Clique duas vezes sobre os controles listados abaixo da " caixa de ferramentas " que você vê no lado esquerdo da tela. À medida que cada um aparece no formulário , clique nele e arraste para o local especificado
Checkbox1 : . Arraste para canto superior esquerdo da formCheckbox2 : Arraste para a direita superior da formLabel1 : Drag abaixo Checkbox1Textbox1 : Drag abaixo Checkbox2CommandButton1 : Centro abaixo acima controlsLabel2 : Centro abaixo CommandButton1CommandButton2 : Centro abaixo Rótulo2
2
Adicionar legendas na caixa " Propriedades " no lado direito da tela para cada um desses controles. Faça isso clicando em cada um, que traz o controle selecionado na caixa " Propriedades" . A propriedade " Caption " aparece em ordem alfabética na lista de propriedades. Alterar a legenda ou texto , conforme listado abaixo padrão. Use o arrastar alças de os controles de formulário para acomodar o texto adicionado. Não use as aspas abaixo
Checkbox1 legenda : . "Férias Subtrair federal? " Caption CheckBox2 : "Leap Year ?" Caption Label1 : "como muitos feriados adicionais ?" TextBox1 : Exclua o "Text" propriedade em o list.CommandButton1 : " dias Úteis Calcular " . Altere o "(nome) " propriedade de "Calcular" Rótulo2 : . Excluir a legenda, se present.CommandButton2 : . "Exit"
3
Dê um duplo clique em " Dias Úteis Calcular " botão para abrir a janela de código. Quando você fizer isso duas linhas de exibição do código por padrão, "Private Sub Calculate_Click () " e " End Sub ". Configure a primeira parte da codificação para calcular dias úteis , inserindo as seguintes linhas entre estas duas linhas padrão :
Dim EndDate , CURDATE Como DateDim BusDay , TotBusDays , CalcYear Como IntegerTotBusDays = 0CalcYear = InputBox ( " Em que ano ? " ) CURDATE =" 1 /1 /"& CalcYearEndDate =" 31/12 /"& CalcYearDo Até CURDATE = EndDateBusDay = Format ( CURDATE , " w ") Select Case BusDayCase " 2 "para " 6 " TotBusDays = TotBusDays + 1 caso " 1 " ' Do nothingCase " 2 " ' Do nothingEnd SelectCurDate = DateAdd ( " d " , 1, CURDATE ) loop
4
Adicione código adicional para compensar feriados. Dez feriados federais geralmente significam 10 dias a menos de trabalho , mesmo quando o feriado cai em um fim de semana , porque a maioria dos empregadores conceder ou sexta-feira ou segunda-feira em compensação. Se isto não se aplica no seu caso , modifique o valor da " Quantos feriados adicionais " caixa de entrada quando o programa é executado. Por exemplo, se você não conseguir dias de folga para alguns feriados , reduzir ou insira um número negativo na caixa. Digite o seguinte código logo abaixo da última linha no Passo 3
Se Check1.Value = vbChecked ThenTotBusDays = TotBusDays - . 10End IFIF Check2.Value = vbChecked ThenTotBusDays = TotBusDays + 1End IFIF Text1.Text <> " " ThenAddHol = Text1.TextTotBusDays = TotBusDays - AddHolEnd IfLabel1.Caption =" Existem "& TotBusDays &" dias úteis " e CalcYear
5
Dar ao usuário uma maneira fácil de sair do programa. No formulário , clique duas vezes no botão "Sair". Digite a palavra "Fim" entre o " Private Sub Command2_Click ()" e "End Sub" você vê na seção de código .
6
Clique no próprio formulário e altere a propriedade Caption do formulário ler " dias Úteis Calcular" . Clique em "Arquivo " e depois " Save Project As ". Escolha uma pasta para o programa e nomeie o projeto " Dias Úteis Calcular" . Clique em "OK ", e em seguida, pressione "F5" para executar o programa .
