Função TimeSerial

[alissong 1]

Pessoal,

 

Tenho cinco campos no formato data/hora no access e o usuário digita no formulário assim:

entrada_p.text = 8:00

saida_p.text = 12:00

re1 = 4:00

 

entrada_s.text = 14:00

saida_s.text = 18:00

re2 = 4:00

 

Veja o código que estou usando, mas não esta dando certo:

Private Sub saida_s_LostFocus()

Dim d1, d2, d3, d4 As String

 

If saida_s.Text <> "" Then

 

d1 = TimeValue(entrada_p.Text)

d2 = TimeValue(saida_p.Text)

d3 = TimeValue(entrada_s.Text)

d4 = TimeValue(saida_s.Text)

 

re1 = (d2 - d1) * 24

 

hora.Text = re1

 

 

End If

 

 

Um abraço.

 

 

Alissong

[scorpio 7]

Quando você fala que não deu certo se refere a que?

Os testes que eu fiz aqui me pareceu normal, retorna valor da hora em decimal não é?

 

Flw

[alissong 1]

Escorpio,

 

 

E foi mal, esqueci-me de mencionar o segundo argumento:

 

 

re1 = (d2 - d1) * 24

re2 = (d4 - d3) *24

hora.Text = re1 + re2

 

O erro é na linha em negrito. Exibe um mensagem de null ou empty na linha.

 

 

Um abraço.

 

 

Alissong

[scorpio 7]

Estranho... faz uma linha mas não faz outra. coisas de M$

Troquei as variaveis d1,d2,d3,d4 de String por Double, e funcionou aqui.

Tenta ai, se não der grita que alguem mais ajuda :P

 

Flw