VBA Excel: Retornando o período em ANOS, MESES e SEMANAS.

Olá caros senhores e algumas senhoras (digo senhoritas), A questão da idade é mesmo muito sensível a muitos, por isso é sempre prudente tomar cuidado com ela. Com isto em mente disponibilizo uma função básica, mas super útil para a utilização de alguns. A partir de 2 datas retornará o período ocorrido entre elas. Function Era(Date1 As Date, Date2 As Date) As String Dim Y As Integer Dim M As Integer Dim D As Integer Dim Temp1 As Date Let Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1)) Let Y = Year(Date2) - Year(Date1) + (Temp1 > Date2) Let M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2)) Let D = Day(Date2) - Day(Date1) If D < 0 Then Let M = M - 1 Let D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1 End If Let Era = Y & " anos " & M & " meses " & D & " dias" End Function André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com