Расчёт даты

[WarBoot]

Доброго времени суток.
Есть такой вопрос как расчёт времени.
Т.е. У меня есть документ стоянка. В ней есть реквизит Дата. Как рассчитать время отбытия если учитывать что рассчитывается по часам, суткам, неделям, месяцам (перечисления в реквезите тарификация)

[vitasw]

Я б написал запрос. В нем есть хорошая функция РазностьДат

[KrivosheevEV]

МояДата постарела на 1 час:

Код Выделить Развернуть

МояДата = МояДата + 60*60;

[WarBoot]

МояДата постарела на 1 час:

Код Выделить Развернуть

МояДата = МояДата + 60*60;

Не совсем понятно почему 60*60?

[cska-fanat-kz]

МояДата постарела на 1 час:

Код Выделить Развернуть

МояДата = МояДата + 60*60;

Не совсем понятно почему 60*60?

потому что если к дате прибавить число, то это считается как количество секунд

[WarBoot]

МояДата постарела на 1 час:

Код Выделить Развернуть

МояДата = МояДата + 60*60;

Ну могу предположить, что это в секундах...
Но всё ровно многое не понятно... Написал такой код:

Код Выделить Развернуть

&НаКлиенте
Процедура СрокСтоянкиПриИзменении()
    Объект.ДатаОтбытия = ПолучитьДату();
КонецПроцедуры

&НаСервере
Функция ПолучитьДату();
Если Объект.Тарификация = Перечисления.Тарификация.Час Тогда
Дата = Объект.Дата+60*60*объект.СрокСтоянки;
ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Сутки Тогда   
        Дата = Объект.Дата+60*60*24*объект.СрокСтоянки;
    ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Неделя Тогда
        Дата = Объект.Дата+60*60*24*7*объект.СрокСтоянки;
    ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Месяц Тогда
        Дата = Объект.Дата+60*60*24*7*30*объект.СрокСтоянки;
КонецЕсли;
КонецФункции



Ни чего не считает

Добавлено: 13 мая 2015, 08:35

Всем спасибо за помощь!!! Разобрался, в конце забыл прописать Возврат Даты;

[cska-fanat-kz]

ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Месяц Тогда         
    Дата = Объект.Дата+60*60*24*7*30*объект.СрокСтоянки;

а если дней в месяце 31 или 28? )))

[WarBoot]

ИначеЕсли Объект.Тарификация = Перечисления.Тарификация.Месяц Тогда         
    Дата = Объект.Дата+60*60*24*7*30*объект.СрокСтоянки;

а если дней в месяце 31 или 28? )))

А ещё может быть 29.. Но я это уже точно сделать не смогу

[cska-fanat-kz]

Я б написал запрос. В нем есть хорошая функция РазностьДат

а также ооооооочень хорошая функция ДОБАВИТЬКДАТЕ()

[cska-fanat-kz]

Функция ДобавитьКДате(Дата, Тип, Количество)

   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   ДОБАВИТЬКДАТЕ(&Дата, "+Тип+", &Количество) КАК Результат";

   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Количество", Количество);

   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   ВыборкаДетальныеЗаписи.Следующий();
   
   Возврат ВыборкаДетальныеЗаписи.Результат;

КонецФункции // ДобавитьКДате()