Dias e hora - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Dias e hora

adsilva

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 25/10/2004 11:07 hs

Olá pessoal estou com a seguinte duvida:

Gostaria de calcular quantos dias e hora da seguintes varivaveis

dim data1 as date

dim data2 as date

dim resultado as string

data1 = "15/10/2004 12:00:00"

data2 = "18/10/2004 16:00:00"

Resultado = 76 Horas.

Alguem teria uma função para isso???

Abraço
Adriano

Alberto Vasc

SÃO PAULO
SP - BRASIL

Postada em 25/10/2004 12:09 hs

Pode utilizar a função DateDiff

MsgBox DateDiff("h", data1, data2)

adsilva

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 25/10/2004 12:24 hs

Alberto Vasc, obrigado pela dica... Mais preciso de mais delahes no retorno.

Ex. data1 = "11-10-2004 00:00"

data2 = "12-10-2004 14:00"

Retorno = 1 dia e 14 horas.

Isso é possivel??

Adriano

adsilva

SÃO PAULO
SP - BRASIL

Postada em 25/10/2004 15:17 hs

Alguem sabe?

Semmer

CURITIBA
PR - BRASIL

ENUNCIADA !

Postada em 25/10/2004 15:39 hs

Com o datediff que o Alberto mostrou, você obterá as horas entre as variáveis. Com as horas do seu primeiro exemplo o resultado seria 76, então é só criar uma função que transforme as 76 horas em 3 dias e 4 horas. É questão de lógica.

Alberto Vasc

SÃO PAULO
SP - BRASIL

Postada em 26/10/2004 12:38 hs

Ok.

De fato o Semmer está correto... bom eu fiz uma função para determinar a hora através da gravação do valor VBA.Timer, como exemplo:

Private Function VerTempo(vValor As Variant) As String
    Dim vResta As Variant
    Dim Segundo As Byte
    Dim Minuto As Byte
    Dim Hora As Long

    vResta = vValor
    Segundo = Int(((vResta / 60) - Int(vResta / 60)) * 60)
    vResta = (vResta / 60) - ((vResta / 60) - Int(vResta / 60))
    If vResta > 0 Then
        Minuto = Int(((vResta / 60) - Int(vResta / 60)) * 60)
        vResta = (vResta / 60) - ((vResta / 60) - Int(vResta / 60))
    End If
    Hora = vResta
    VerTempo = Format(Hora, "00") & ":" & Format(Minuto, "00") & ":" & Format(Segundo, "00")
End Function

Você poderá derrepente utilizar esta técnica utilizando o DateDiff, sendo que o primeiro parâmetro você determina o retorno da verificação, podendo ser:

"yyyy" Year
"q" Quarter
"m" Month
"y" Day of year
"d" Day
"w" Weekday
"ww" Week
"h" Hour
"n" Minute
"s" Second

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR