DATA COMPLETA
Bom dia à todos.
Não consigo trazer a diferença completa exata entre duas datas.
Ex:
Se digito: 01/01/2010 Ã 01/12/2012, o sistema traz: 2 Anos 11 Mes(es) e 5 Dia(s)
O correto seria trazer 2 Anos 11 Mes(es) e 0 Dia(s)
Segue o código:
Private Function calcula_tempo(inicio, termino As Date) As String
Dim dias As Single
Dim anos As Integer
Dim meses As Integer
Dim resto As Integer
dias = DateDiff([Ô]d[Ô], CVDate(inicio), CVDate(termino))
anos = Int(dias / 365)
resto = dias Mod 365
meses = Int(resto / 30)
dias = resto Mod 30
calcula_tempo = anos & [Ô] Anos [Ô] & meses & [Ô] Mes(es) e [Ô] & dias & [Ô] Dia(s)[Ô]
End Function
Private Sub Data2_LostFocus()
DataCompleta.Text = calcula_tempo(Data1, Data2)
End Sub
Desde já agradeço.
Não consigo trazer a diferença completa exata entre duas datas.
Ex:
Se digito: 01/01/2010 Ã 01/12/2012, o sistema traz: 2 Anos 11 Mes(es) e 5 Dia(s)
O correto seria trazer 2 Anos 11 Mes(es) e 0 Dia(s)
Segue o código:
Private Function calcula_tempo(inicio, termino As Date) As String
Dim dias As Single
Dim anos As Integer
Dim meses As Integer
Dim resto As Integer
dias = DateDiff([Ô]d[Ô], CVDate(inicio), CVDate(termino))
anos = Int(dias / 365)
resto = dias Mod 365
meses = Int(resto / 30)
dias = resto Mod 30
calcula_tempo = anos & [Ô] Anos [Ô] & meses & [Ô] Mes(es) e [Ô] & dias & [Ô] Dia(s)[Ô]
End Function
Private Sub Data2_LostFocus()
DataCompleta.Text = calcula_tempo(Data1, Data2)
End Sub
Desde já agradeço.
Obrigado, Marcelo-Treze.
Fiz algumas adaptações e funcionou beleza.
Fiz algumas adaptações e funcionou beleza.
Tópico encerrado , respostas não são mais permitidas