• Главная
• Коды
• Книги
• Фриланс
• Примеры решения задач 1С:8

1. Как явно указать нужную дату
2. Как проверить дату на пустое значение
3. Как сравнить две даты (дни)
4. Как прибавить к дате день, месяц

Как явно указать нужную дату?

'20050308'
Дата(2005, 1, 1)   
Дата(1, 1, 1)   
Дата(2005, 1, 1, 10, 29, 50)   
ДАТАВРЕМЯ(2005, 01, 01)       

Как проверить дату на пустое значение?

Если ДатаПроверяемая = Дата(1, 1, 1) Тогда 
         Сообщить("Пустая дата!");  
КонецЕсли;

Как сравнить две даты (дни)?

Если НачалоДня(Дата1) = НачалоДня(Дата2) Тогда
        Сообщить("Дни совпадают!");
 КонецЕсли;

Как прибавить к дате день, месяц?

СледующийДень = ТекущаяДата() + 60 * 60 * 24; 

ДобавитьМесяц(Дата(2005, 1, 31), 1)
ДобавитьМесяц(Дата(2005, 2, 28), -1)
КонецМесяца(ДобавитьМесяц(Дата(2005, 2, 28), -1))

Функция ПолучитьДень(ИсходнаяДата, КоличествоПрибавляемыхДней)
        Запрос = НовыйЗапрос("
         |ВЫБРАТЬ
         |	ДОБАВИТЬКДАТЕ(&ИсходнаяДата, ДЕНЬ, &Количество) как Дата";  

        Запрос.УстановитьПараметр("ИсходнаяДата", ИсходнаяДата);
        Запрос.УстановитьПараметр("Количество", КоличествоПрибавляемыхДней);
        ВозвратЗапрос.Выполнить().Выгрузить()[0].Дата;
КонецФункции