Разница между двумя датами в годах, месяцах и днях

Function GetAge(dtDOB As Date, Optional dtDateTo As Date = 0) As String
' dtDateTo передана?
If dtDateTo = 0 Then
dtDateTo = Date
End If
GetAge = Format$(dtDateTo - dtDOB, "yy - mm - dd")
End Function

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Разница между двумя датами в годах, месяцах и днях", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!