Нам поможет Эксель.

Sub DianeAge()

  ' Возраст Дианы равен 23 годам, 23 месяцам, 23 неделям, 23 дням и 23 часам. Сколько лет Диане?

  Dim dt As Date

  dt = DateSerial(2000, 1, 1)

  dt = DateAdd("yyyy", 23, dt)

  dt = DateAdd("m", 23, dt)

  dt = DateAdd("ww", 23, dt)

  dt = DateAdd("d", 23, dt)

  dt = DateAdd("h", 23, dt)

  Debug.Print dt

End Sub

03.06.2025 23:00:00 

То есть Диане 25 лет