MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Calcular Diarias

    Compartilhe

    wcpl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/06/2015

    Calcular Diarias

    Mensagem  wcpl em Ter 28 Jun 2016, 15:23

    Olá pessoal preciso de uma ajuda.

    Em uma Caixa de Combinação (met_calc_diaria) tem 2 opções (Anzolin ; Camiloti)

    Tenho os campos:
    data_saida
    data_chegada  
    Total de Horas
    R$ Diarias


    A grosso modo eu preciso que

    Se met_calc_diaria = Anzolin
       Eu quero que : TotalDeHoras = (data_chegada - data_saida) * 24)
       E: R$ Diaria = TotalDeHoras * 2.0834  

    Agora se met_calc_diaria = Camiloti
       Eu quero que : TotalDeHoras = (data_chegada - data_saida) +1)
       E: R$ Diaria = TotalDeHoras * 40
    Anexos
    Captura de Tela (5).png
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 8 vez(es)

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 19/08/2010

    Calcular diarias

    Mensagem  marcelo3092 em Ter 28 Jun 2016, 16:04

    Bom dia meu amigo bom tenho um exemplo mais ou menos o que vc precisa da uma olhada no formulario de OS



    [Você precisa estar registrado e conectado para ver este link.]


    na aba dados do serviço

    wcpl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/06/2015

    Re: Calcular Diarias

    Mensagem  wcpl em Ter 28 Jun 2016, 20:50

    Obrigado Ajudou bastante.
    Agora o problema é que tenho que clicar 2 vezes no botão para calcular corretamente.
    Na primeira clicada fica errado, dai clico novamente e calcula certo.

    Segue a maneira que eu fiz:

    Private Sub Comando0_Click()
    Dim x
    Dim z
    Dim y
    Dim w

    x = Int(([Forms]![Formulário1]![data_chegada] - [Forms]![Formulário1]![data_saida]) * 24)
    z = Int(([Forms]![Formulário1]![data_chegada] - [Forms]![Formulário1]![data_saida]) + 1)
    y = [TotalDeHoras] * 2.0834
    w = [TotalDeHoras] * 40

    If met_calc_diaria = "Anzolin" Then
    Me.TotalDeHoras = x
    Me.ValorDaDiaria = y
    Else
    End If
    If met_calc_diaria = "Camiloti" Then
    Me.TotalDeHoras = z
    Me.ValorDaDiaria = w
    End If
    End Sub




      Data/hora atual: Sab 21 Out 2017, 18:31