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

pedromgantunes

[Resolvido] Diferença entre duas datas

Recommended Posts

pedromgantunes

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

:)

Share this post


Link to post
Share on other sites
jpaulino

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

Share this post


Link to post
Share on other sites
pedromgantunes

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

Share this post


Link to post
Share on other sites
jpaulino

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#

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.