MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 20
    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 5 vez(es)

    marcelo3092
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    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 : 20
    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: Qui 08 Dez 2016, 00:06