• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

pedromgantunes

[Resolvido] Diferença entre duas datas

5 mensagens neste tópico

Gostaria de saber como se pode saber a diferença entre duas data (como exemplo 10-01-2009 15:00, e o dia 20-1-2009 ás 14:15) .

Obrigado

:)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Usa a função datediff(intervalo, data1, data2)

Exemplo:

    Dim date1 As Date
    Dim date2 As Date
    Dim result As Integer

    ' Atribui datas as variáveis
    date1 = #1/1/2009#
    date2 = Date
    
    ' Calcula a diferenca em dias
    result = DateDiff("d", date1, date2)
    
    ' Mostra o resultado
    MsgBox result

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado

Mas com a função datediff não tenho a diferença relativamente á hora

Tentei este código mas não funciona

Dim date1 As Date

Dim date2 As Date

Dim result As Integer

date1 = #1/1/2009 10:00:00 AM#

date2 = #2/1/2009 9:30:00 AM#

result = DateDiff("n", date1, date2)

MsgBox result

Deveria dar o resultado de 23h e 30m ou seja 1410minutos uma vez que o intervalo está defenido para minutos

Settings

The interval argument has these settings:

Setting Description

yyyy Year

q Quarter

m Month

y Day of year

d Day

w Weekday

ww Week

h Hour

n Minute  :wallbash:

s Second

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isto é:

date1 = #1/1/2009 10:00:00 AM#

1 de Janeiro de 2009

date2 = #2/1/2009 9:30:00 AM#

1 de Fevereiro de 2009

Se queres um dia de diferença tens de colocar no formato correcto, ou seja, mm/dd/yyyy:

date1 = #1/1/2009 10:00:00 AM#

date2 = #1/2/2009 9:30:00 AM#

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora