[Resolvido]Relatório não soma valores contatenados

Boa tarde amigos preciso de entregar um relatorio , mas não posso entregar sem valor.
fiz essa linha onde junta hora concatena com minutos
   

Código:

Me.txtCobrançaDeHorasEminutos = Me.Texto38 + Me.txtEntreDatas * Me.txtValorCobrado & ";" & Me.Texto36 ' juntar horas com minutos cobrado

eu fiz na tabela im campo calculado e aparece o valor normal, mas no relatório da problema de expressão
ja tentei as possibilidade.

Me.txtFinal = Me.txtHoras
   Me.minF = Minute(Now())
   Me.hF = Hour(Now())
   Me.txtDiaF = Me.Texto54 ' data do pc
   Me.txtEntreDatas = DateDiff("h", txtDiaI, txtDiaF + Abs(txtDiaF > txtDiaI))
   Me.txtCobrançaDeHorasEminutos = Val(Me.Texto38 + Me.txtEntreDatas * Me.txtValorCobrado) & ";" & Me.Texto36 ' juntar horas com minutos cobrado
  'Me.txtCobrancaDeDia = Me.calcDia * Me.txtValorCobrado ' cobrar dia

   Me.txtValorTotal = txtCobrançaDeHorasEminutos

O que atrapalha é  a concatenação do ; que faz com horas e minutos

Estava dando certo e derrapante deu erro

Crysostomo? Uma curiosidade.

Qual a finalidade de você formatar os dados deste jeito?

Boa noite, o cliente deseja cobrar a horas, dias e minuto.
Para não fazer um campo de hora e outro de minutos para não juntar os campo , coloquei tudos no vba para concatenar.
Não tive outra ideia de criação.

Crysostomo,

Já existe campo específico no banco de dados para data e hora e o cálculo é simples.

Sugestão:
Com a função DateDiff vc consegue calcular dias, horas, minutos e segundos.

Talvez vc tenha trabalho desnecessário para esta atividade.

Espero ter ajudado

Att,

Vou dar uma estudada sobre diff .
voce diz o campo "calculando " , ele não soma se eu concatenar ";" a tabela tem que guarda a data Inicial e depois calcula com a final.
pois o sistema atualiza a tabela para colocar a data e hora final na mesmo Id.
Eu vou refazer essa janela. tentar enxugar os códigos e envio o bd

Boa tarde Alexandre, deixando um pouco o meu serviço de design enxugue uma parte para esses códigos , mas tentando formatar com 4 casas decimal após a virgula,  pelo cb, format DecimalPlase, val, CInt não está dando certo, não que formatar eles formata um de deixa outro

Boa noite Gilliard!

Veja se é isso que precisa
Em anexo

Saludos!

O tempo está ok, vou guarda esse arquivo, mas como está na mensagem 8 está calculando perfeito o tempo e o valor do tempo , so não consigo formatar ele para 2 casas após a virgula , ja tentei formatar de vários tipos, mas não funciona
quando é cobrado pelo tempo o resultado sai 6,1833333333333 quero formatar para 6,18 se eu fizer pelo round ele vai arredondar , mas eu não quero arredondamento messe caso

Crysostomo,

Fiz um pequeno exemplo:



Segue exemplo em anexo.

Espero ter ajudado.

Boa sorte

Bom dia Alexandre

E criar uma máscara de digitação de dados para os campos data e hora ?

Tipo para hoje - 01092020 113230 --> 01/09/2020 11:32:30

Bom dia Assis, meu caro !!

Eu fiz o exemplo e faltou esse detalhe.

Coloque a seguinte máscara no campo da tabela e no formulário:

00"/"00"/"0000\ 00":"00":"00;0;

Boa sorte

Espero ter ajudado

Obrigado Alexandre

Perfeito ...

Valeu Assis !!!

Sucesso!!

Aguardando o @crysostomo pra encerrar ou não o tópico.

Abs

Meu amigos bom dia.
@Alexandre obrigado demorei a responder pois estava estudando seus código, pela dificuldade de entender códigos novos ficou focado nele as vesses até esqueço ele , continuo estudando ele, mas fecho esse tópico pois a adaptei ele para formatar.