Нам поможет Эксель.
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 лет
Нам поможет Эксель.
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 лет