Список проголосовавших за комментарий "выдает ошибку, при вычислении х:<br/> <p>Public Function f_CalculationT(f_Date As Date, f_Exp As Date) As Double '<br/> ...<br/> x = CDbl(DateDiff(«s», FormatDateTime(f_Date, vbGeneralDate), FormatDateTime(f_Exp, vbGeneralDate))) / CDbl(DateDiff(«s», CStr(«00:00 01.01.» & Year(f_Exp)), CStr(«23:59 31.12.» & Year(f