Не учтены все возможные варианты. Предлагаю использовать следующую пользовательскую функцию.
Код |
---|
Function CDay(time As Variant)CDay = Mid(time & "0000", Application.WorksheetFunction.Search("лет", time & "0000лет") - 4, 3) * 365 + _ Mid(time & "0000", Application.WorksheetFunction.Search("год", time & "0000год") - 4, 3) * 365 + _ Mid(time & "0000", Application.WorksheetFunction.Search("мес", time & "0000мес") - 4, 3) * 30 + _ Mid(time & "0000", Application.WorksheetFunction.Search("ден", time & "0000ден") - 4, 3) + _ Mid(time & "0000", Application.WorksheetFunction.Search("дня", time & "0000дня") - 4, 3) + _ Mid(time & "0000", Application.WorksheetFunction.Search("дне", time & "0000дне") - 4, 3) + _ Mid(time & "0000", Application.WorksheetFunction.Search("нед", time & "0000нед") - 4, 3) * 7 + _ Mid(time & "0000", Application.WorksheetFunction.Search("час", time & "0000час") - 4, 3) / 24 + _ Mid(time & "0000", Application.WorksheetFunction.Search("мин", time & "0000мин") - 4, 3) / 1440 + _ Mid(time & "0000", Application.WorksheetFunction.Search("сек", time & "0000сек") - 4, 3) / 86400 End Function |