TRANSFORMAR UMA STRING EM TIME

LUCIANO021273 21/09/2023 23:17:10
#501766
Olá,
estou buscando uma data e ela esta chegando em formato de string, gostaria de transformar ela em Time

exemplo esta chegando >>> "10:23" como gostaria de somar estas horas, esta me retornando em erro

veja como tentei fazer
____________________________________________________________________________
dim vHora as date
vHora= Format(TimeValue(txtTempoTotal), "hh:mm")
________________________________________________________________________
também tentei
txtTempoTotal = Format(TimeValue(txtTempoTotal), "hh:mm")
___________________________________________________________________________

como seria o certo?

att,


3SLUIS 22/09/2023 08:16:21
#501768
assim funciona
dim vHora as date
vHora= Format(TimeValue(txtTempoTotal), "hh:mm")

no seu exemplo retorna 10:23:00
LUCIANO021273 22/09/2023 11:27:51
#501769
Bom dia, Meus amigos!

O que preciso fazer, acredito que para vcs programadores é bem simples, talvez da forma que faço nem seja correto, mas para minha dinamica fica mais facil...

If txtTempoTotal > "24:00" Then txtData = txtData + 1 ' acrescentar um dia a cada 24hs

meu problema esta aqui, txtTempoTotal > "24:00" ele não reconhece hora, por isso esta voltando erro de incompativel...

SEGUE A BAIXO O CODIGO COMPLETO, caso um dos amigos experientes queira me ajudar,


  Private Sub SomaDias()


  Dim vData As Date
  Dim vHora As Date
  
  vData = txtDataInicio
  vHora = txtTempoTotal
   
   If txtTempoTotal > "24:00" Then
      vData = vData + 1 ' acrescentar um dia a cada 24hs
      ElseIf txtTempoTotal > "48:00" Then vData = vData + 2
      ElseIf txtTempoTotal > "72:00" Then vData = vData + 3
      ElseIf txtTempoTotal > "96:00" Then vData = vData + 4
      ElseIf txtTempoTotal > "120:00" Then vData = vData + 5
      ElseIf txtTempoTotal > "144:00" Then vData = vData + 6
      ElseIf txtTempoTotal > "164:00" Then vData = vData + 7
End If
   
End Sub
LUCIANO021273 22/09/2023 11:30:22
#501770
Alterado em 22/09/2023 11:30:41 meu problema esta aqui

vHora = txtTempoTotal >>>>>> ele não reconhece como hora para somar...
3SLUIS 22/09/2023 11:54:57
#501771
mas você definiu vHora como Date
vai dar erro sempre que txtTempoTotal for maior que 23:59
LUCIANO021273 22/09/2023 13:06:46
#501773
Ok, e como devo fazer?
Pode me dar algumas dicas, analisando o codigo que postei acima?
NILSONTRES 23/09/2023 17:25:43
#501778 Resposta escolhida
Se você utiliza Mysql busque sobre sec_to_time.
https://www.w3resource.com/mysql/date-and-time-functions/mysql-sec_to_time-function.php
LUCIANO021273 19/09/2024 10:09:03
#503568
Obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar