CALCULO DE HORA DECIMAL

TLOUREIRO82 01/08/2012 14:55:15
#407023
Prezados,

Eu tenho uma pequena função que transforma hora em decimal. exemplo: 00:30 -> 0,50. Esta função é em VBA e não estou conseguindo transforma-la para VB. Agradeço o costumeiro apoio nesta questão

Dim D As Date, TB, Resultado As Single

D = [Ô]00:30[Ô]
TB = Split(D, [Ô]:[Ô])
Resultado = TB(0) + ((TB(1) * 100) / 60) / 100
ALTAIR148 01/08/2012 15:20:49
#407026 Resposta escolhida
Boa tarde,

Tenta com o exemplo abaixo.

Dim Hora As String = [Ô]04:30[Ô]
        Dim Variavel() As String = Hora.Split([Ô]:[Ô])
        Dim Converte As Double
        Converte = Variavel(1) / 60
        MsgBox(Converte)
TLOUREIRO82 01/08/2012 15:41:21
#407031
Altair obrigado mais uma vez!
Apenas complementando o calculo, segue o calculo do converte

Converte = Variavel(0) + ((Variavel(1) * 100) / 60) / 100

desta forma o exemplo ficará assim

04:30 -> 4,50

Valew
ALTAIR148 01/08/2012 15:45:19
#407032
Ok. Precisando estamos aí.
Tópico encerrado , respostas não são mais permitidas
Voltar