Entre para seguir isso  
Seguidores 0

Converter data em numero

2 posts neste tópico

Postado (editado) · Denunciar post

Senhores estou com um problema, preciso saber a diferença entre duas datas o problema é que o resultado obtido possui varias casas decimais ( em alguns casos com ate 9 numeros após a virgula) e acho que o sistema não está aceitando devido meu tipo de variavel, tentei todas as vaiáveis numericas possiveis e não deu certo.

O Erro exibido é " Erro em tempo de execução '13'. Tipos incompatíveis!

conta_tempo1 = 20/8/2008 09:00

conta_tempo2 = 20/8/2008 13:40

tempo = (conta_tempo2 - conta_tempo1) * 24

o resultado dessa expressão é 4,66666666668607.

dúvidas:

tem algum tipo de variável que seje diferente de Integer, Long, single, double, para esse caso?

eu não posso arredondar isso pois eu tenho que considerar as horas e os minutos tambem ( ai a necessidade das casas decimais).

o que fazer?

Editado por Renato Knupp

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado · Denunciar post

Renato, todas as datas em vb deve vir juntas com o símbolo #.

Ex.: data1 = #12/15/2008# (o padrão é mm/dd/aaaa, mas você pode digitar no padrão dd/mm/aaaa que o vb arruma sozinho).

Agora, para saber a diferença entre as datas, você pode utilizar a função DateDiff:

Sub MostraDiferencaEntreDatas()

Dim data1 As Date, data2 As Date, diferenca As Integer

data1 = #1/20/2008#

data2 = #3/20/2008#

diferenca = DateDiff("d", data1, data2)

MsgBox "A diferença em dias é: " & diferenca

End Sub

O DateDiff mostra a diferença em intervalos anuais, semanais e etc... Utilize o ajuda e você conseguirá as expressões para retornar o intervalo.

abs... B)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0