Страницы: 1
RSS
Функция для расчета оставшегося срока полезного использования объекта. Ошибка function not defined
 
Добрый день Уважаемые Гуру =)
Подскажите, пожалуйста, с чем связана ошибка - "Function not defined"

Функция для расчета оставшегося срока полезного использования объекта, исходя из даты ввода его в эксплуатацию, отчетной даты и срока полезного использования
Код
Option Explicit
Function ОСПИ(dvv As Date, od As Date, spi As Double) As Double
Dim res As Double
res = DateDiff("m", dvv, od)
If res > spi Then
    res = spi
ElseIf res = spi Or res < 0 Then
    res = 0
End If
ОСПИ = spi - res
End Function

Это моя первая функция =) и я уже всю голову сломала =(
 
Было много лишних пробелов в коде (или каких-то других непечатных символов). См. файл
Согласие есть продукт при полном непротивлении сторон
 
Sanja,
О Боги, спасибо Вам огромное =))))  
 
а зачем вам отбивка неразрывными пробелами?
Код
Function ОСПИ(dvv As Date, od As Date, spi As Double) As Double '(дата ввода в эксплуатацию; отчетная дата; срок полезного использования)
    Dim res As Double
    res = DateDiff("m", dvv, od)
    If res > spi Then
        res = spi
    ElseIf res = spi Or res < 0 Then
        res = 0
    End If
    ОСПИ = spi - res
End Function
Изменено: buchlotnik - 08.09.2019 14:17:27
Соблюдение правил форума не освобождает от модераторского произвола
 
Цитата
buchlotnik написал:
а зачем вам отбивка неразрывными пробелами?
Да, честно сказать она мне нужна, наверное...
Сама не знаю откуда они там. Возможно, много раз переписывала =(
 
buchlotnik, Спасибо огромное! Теперь буду следить за этим моментом =)
 
katerin-ka, отступы в коде делайте кнопкой Tab
Согласие есть продукт при полном непротивлении сторон
 
Цитата
Sanja написал:
кнопкой Tab
только четыре пробела - только хардкор!Ё  ;)
Соблюдение правил форума не освобождает от модераторского произвола
Страницы: 1
Наверх