Bom dia gladiadores do mundo moderno,
venho pedir uma ajuda aos senhores, tenho um código que realiza soma DATA e HORA com mais de 24 horas usando o split() e concateno HORA e MINUTO em um TEXTBOX.
O problema é que preciso somar o resultado desses valores concatenados, e por motivos óbvios ele não funciona, pois ele agora é uma string.
teria algum outro modo de somar as horas e minutos sem precisar dividir e concatenar?
ou seria possível converter esse valor concatenado para realizar o calculo?
segue a baixo o código:
If IsNull(txtApresCarreteiro_Hora) Or IsNull(txtInicioReceb_Hora) Then
txtT_FilaCarreta = Null
Else
df = CDate(txtApresCarreteiro_data & " " & txtApresCarreteiro_Hora)
di = CDate(txtInicioReceb_Data & " " & txtInicioReceb_Hora)
interval = di - df
Horas = Int(CSng(interval * 24))
Minutos = Int(CSng(interval * 1440)) Mod 60
'Segundos = Int(CSng(interval * 86400)) Mod 60
txtT_FilaCarreta = Format(Horas, "##00") & ":" & Format(Minutos, "00") & "" ':" & Format(Segundos, "00")
End If
preciso usar txtT_FilaCarreta para calcular com outro valor com essa mesma propriedade, desde já obrigado.
venho pedir uma ajuda aos senhores, tenho um código que realiza soma DATA e HORA com mais de 24 horas usando o split() e concateno HORA e MINUTO em um TEXTBOX.
O problema é que preciso somar o resultado desses valores concatenados, e por motivos óbvios ele não funciona, pois ele agora é uma string.
teria algum outro modo de somar as horas e minutos sem precisar dividir e concatenar?
ou seria possível converter esse valor concatenado para realizar o calculo?
segue a baixo o código:
If IsNull(txtApresCarreteiro_Hora) Or IsNull(txtInicioReceb_Hora) Then
txtT_FilaCarreta = Null
Else
df = CDate(txtApresCarreteiro_data & " " & txtApresCarreteiro_Hora)
di = CDate(txtInicioReceb_Data & " " & txtInicioReceb_Hora)
interval = di - df
Horas = Int(CSng(interval * 24))
Minutos = Int(CSng(interval * 1440)) Mod 60
'Segundos = Int(CSng(interval * 86400)) Mod 60
txtT_FilaCarreta = Format(Horas, "##00") & ":" & Format(Minutos, "00") & "" ':" & Format(Segundos, "00")
End If
preciso usar txtT_FilaCarreta para calcular com outro valor com essa mesma propriedade, desde já obrigado.