Calcular Diarias

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

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



https://www.dropbox.com/s/33aenjrd703qlcv/Sistema%20Controle.rar?dl=0


na aba dados do serviço

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