В Excel 2013 мне нужно создать формулу для расчета лет, месяцев и дней между двумя датами, если одна или обе даты раньше 1900 года.
Например: 20/20/1896 - 12/11/2004 = 108 лет, 6 месяцев, 21 день,
или 19.07.1757 - 17.03.1858 = 100 лет, 7 месяцев, 26 дней.
1 ответ
Реализовать предложение Мате Юхаса
Поместите даты (в виде строк) в ячейки A1 и A2. В B1 введите:
= DATEVALUE(ВЛЕВО (A1, LEN (A1) -4) и ВПРАВО (A1,4)+2000)
и скопировать вниз. Затем в другой ячейке введите формулу Чипа Пирсона:
=DATEDIF(B2,B1,"y") & " years, " & DATEDIF(B2,B1,"ym") & " months, " & DATEDIF(B2,B1,"md") & " days"
Чтобы использовать VBA:
Рассмотрим следующую пользовательскую функцию (UDF):
Public Function ddif(d1 As Date, d2 As Date) As String
Dim years As Long, months As Long, days As Long
years = 0
months = 0
days = 0
year1 = Year(d1)
month1 = Month(d1)
day1 = Day(d1)
Do
If DateSerial(year1 + years, month1, day1) = d2 Then
GoTo finished
End If
If DateSerial(year1 + years, month1, day1) > d2 Then
years = years - 1
Exit Do
End If
years = years + 1
Loop
Do
If DateSerial(year1 + years, month1 + months, day1) = d2 Then
GoTo finished
End If
If DateSerial(year1 + years, month1 + months, day1) > d2 Then
months = months - 1
Exit Do
End If
months = months + 1
Loop
Do
If DateSerial(year1 + years, month1 + months, day1 + days) = d2 Then
GoTo finished
End If
days = days + 1
Loop
finished:
ddif = years & " " & months & " " & days
End Function
Годы, месяцы и дни будут возвращены с одним пробелом между ними.
Пользовательские функции (UDF) очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы использовать UDF из Excel:
= MyFunction (А1)
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
а подробности о UDF смотрите в:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Макросы должны быть включены, чтобы это работало!