calcular quantos dias e hora - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	ASP - Active Server Page

Voltar

Autor

Assunto: calcular quantos dias e hora

adsilva

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 25/10/2004 11:05 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

Martini

PAROBÉ
RS - BRASIL

ENUNCIADA !

Postada em 26/10/2004 08:50 hs

Private Sub Command1_Click()
Dim data1 As Date
Dim data2 As Date
Dim resultado As Long

data1 = "15/10/2004 12:00:00"
data2 = "18/10/2004 16:00:00"
resultado = funCalculaHoras(data1, data2)
MsgBox resultado
End Sub

Private Function funCalculaHoras(DataIni As Date, DataFim As Date) As Long
Dim Horas As Long
Horas = 0
Horas = (DateDiff("d", DataIni, DataFim) - 1) * 24
Horas = Horas + (24 - Format(DataIni, "hh")) - (Format(DataIni, "mm") * 100 / 60)
Horas = Horas + Format(DataFim, "hh") + (Format(DataFim, "mm") * 100 / 60)
funCalculaHoras = Horas
End Function

'numero dias entre duas datas

DateDiff("d", data1,data2)

Página(s): 1/1

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

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site