TEMPO ENTRE DATA
Bom dia a Todos...
Eu tenho duas Data de exemplo 10/01/2002 e 23/03/2012.
Gotaria de achar o tempo entre ela..exemplo 10 anos, 3 meses e 13 dias..
Como faço isso assim..?
Eu tenho duas Data de exemplo 10/01/2002 e 23/03/2012.
Gotaria de achar o tempo entre ela..exemplo 10 anos, 3 meses e 13 dias..
Como faço isso assim..?
Mais ou menos assim:
Dim d1 As Date
Dim d2 As Date
d1 = [Ô]10/01/2002[Ô]
d2 = [Ô]23/03/2012[Ô]
Dim anos As Integer
Dim meses As Integer
Dim dias As Integer
anos = DateDiff([Ô]yyyy[Ô], d1, d2)
d1 = DateAdd([Ô]yyyy[Ô], anos, d1)
meses = DateDiff([Ô]m[Ô], d1, d2)
d1 = DateAdd([Ô]m[Ô], meses, d1)
dias = DateDiff([Ô]d[Ô], d1, d2)
MsgBox anos & [Ô] anos [Ô] & meses & [Ô] meses [Ô] & dias & [Ô] dias[Ô]
Dim d1 As Date
Dim d2 As Date
d1 = [Ô]10/01/2002[Ô]
d2 = [Ô]23/03/2012[Ô]
Dim anos As Integer
Dim meses As Integer
Dim dias As Integer
anos = DateDiff([Ô]yyyy[Ô], d1, d2)
d1 = DateAdd([Ô]yyyy[Ô], anos, d1)
meses = DateDiff([Ô]m[Ô], d1, d2)
d1 = DateAdd([Ô]m[Ô], meses, d1)
dias = DateDiff([Ô]d[Ô], d1, d2)
MsgBox anos & [Ô] anos [Ô] & meses & [Ô] meses [Ô] & dias & [Ô] dias[Ô]
KERPLUNK.....ja fiz aki...bem parecido com o seu exemplo....obrigado....
Tópico encerrado , respostas não são mais permitidas