ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как подсчитать количество дней между первой и последней датой в колонке?
17 сообщений из 17, страница 1 из 1
Как подсчитать количество дней между первой и последней датой в колонке?
    #34892987
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Как подсчитать количество дней между первой и последней датой в колонке?

Есть справочник "спр", в нем одна из колонок - "Дата", как высчитать сколько дней осталось между, к примеру

03.10.2007
и
10.11.2007
...
Рейтинг: 0 / 0
25.10.2007, 00:03
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34893005
pail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pail
Участник
Еще бы догадаться , о 7-ке или 8-ке речь идет.

дней = дата2-дата1; // это 7 Дата = число дней
дней = окр((НачалоДня(дата2)-началоДня(дата1))/86400,0,0); // это 8 Дата = число секунд
...
Рейтинг: 0 / 0
25.10.2007, 00:28
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34894865
Serhiy Subota
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serhiy Subota
Гость
В 1с 8 запросом:

выбрать
разностьДат( МАКСИМУМ( Дата), МИНИМУМ( Дата), День)
из
Справочник.Спр
где
// какое-то условие, если надо не по всему справочнику
...
Рейтинг: 0 / 0
25.10.2007, 16:08
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34896166
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Спасибо, для 7.7, я не знал что у 7 и 8 большие различия.

А, вы не знаете какой эквивалент на английском команде 'конеццикла' ?
...
Рейтинг: 0 / 0
26.10.2007, 04:43
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34896173
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Получилось вот так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
	procedure конец()
	завершитьработусистемы();
	endprocedure

	procedure пройтись()
	Дата0=Дата("09.10.2007");
	Дата1=Дата(Дата0);
	Дата2=Дата(Дата0);
	Total= 0 ;
	спр=создатьобъект("справочник.Family_Budget");
	спр.выбратьэлементы();           	
	while спр.получитьэлемент()= 1  do
	if Дата0>спр.Дата then Дата0=спр.Дата endif;
	if Дата1<спр.Дата then Дата1=спр.Дата endif;
	Total=Total+спр.Cost; 
	конеццикла;                
	Дата2=Дата(Дата1)-Дата(Дата0);
	сообщить("Total:"+Total);
             сообщить("Period:"+Дата2);
	endprocedure;
...
Рейтинг: 0 / 0
26.10.2007, 05:18
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34896333
Reder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Reder
Участник
Admin_VladСпасибо, для 7.7, я не знал что у 7 и 8 большие различия.

А, вы не знаете какой эквивалент на английском команде 'конеццикла' ?
Блин а догадаться - enddo
И вообще в настройках поставь отображать в СП два языка, будут тебе в скобочках аглицкие аналоги показываться.
...
Рейтинг: 0 / 0
26.10.2007, 09:34
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34898740
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Спасибо, я пытался использовать и endloop и endnext :-)
К сожалению в Синтакс-Помощнике не нашел, где выставляется поддержка двух языков :-(
...
Рейтинг: 0 / 0
26.10.2007, 20:46
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34899196
Reder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Reder
Участник
Admin_VladСпасибо, я пытался использовать и endloop и endnext :-)
К сожалению в Синтакс-Помощнике не нашел, где выставляется поддержка двух языков :-(
Конфигуратор-Меню-Сервис-Параметры.
Закладка "Синтаксис-помощник"
Галка "Использовать оба языка"
...
Рейтинг: 0 / 0
27.10.2007, 15:50
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34899279
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Спасибо, теперь нашел.

В меню конфигуратора
"Сервис"->"Параметры"->"Синтакс-Помощник"->"Использовать оба языка"
...
Рейтинг: 0 / 0
27.10.2007, 18:05
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34900410
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Не подскажите как выгрузить данные из 1С в Excel? Может есть кусок кода или ссылка на статью в Интернет?
...
Рейтинг: 0 / 0
29.10.2007, 07:31
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34900428
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
	Попытка
		XL = СоздатьОбъект("Excel.Application");
	Исключение
		Предупреждение("Не могу загрузить Excel");
		Возврат;
	КонецПопытки;
	
    xlA1 =  1 ;		// стиль "буквы"
    xlR1C1 = - 4150 ;	             // стиль R1C1
    xlCenter = - 4108 ;
    xlLeft = - 4131 ;
    xlRight = - 4152 ;
    xlPortrait =  1 ;      // ориентация КНИЖНАЯ
    xlLandscape =  2 ;  // ориентация АЛЬБОМНАЯ
    xlHairline =  1 ;
    xlEdgeLeft =  7 ;
    xlEdgeTop  =  8 ;
    xlEdgeBottom=  9 ;
    xlEdgeRight =  10 ;
    xlInsideVertical  =  11 ;
    xlInsideHorizontal=  12 ;
	
    XL.Application.ScreenUpdating =  0 ;
    XL.Visible =  0 ;
    XL.Workbooks.Add();
    XL.Sheets("Лист1").Name = "Движение работников";
    XL.ActiveWindow.DisplayZeros =  0 ;	  // не отображать нулевые значения
	
	Состояние("Подключился к Excel-ю");
	
	// рисую шапку
    XL.Columns("A:AX").ColumnWidth =  6 . 43 ;      // AX= 50  колонка
    XL.Columns("AE:AF").ColumnWidth =  8 . 5 ;        // зависит печать второго листа
    XL.Columns("A:AX").Font.Name = "Microsoft Sans Serif";
    XL.Columns("A:AX").Font.Size =  8 ;
ещё чуть чуть
Код: plaintext
1.
    XL.Range("B2:Q2").Merge();
    XL.Cells( 02 , 02 ).Value = "Численность на начало года";
дальше например итоги
Код: plaintext
1.
2.
3.
4.
	Для i= 2  По  47  Цикл
		XL.Cells( 07 ,i).FormulaR1C1 = "=SUM(R[1]C:R[4]C)";
		XL.Cells( 13 ,i).FormulaR1C1 = "=SUM(R[2]C:R[3]C)";
		XL.Cells( 17 ,i).FormulaR1C1 = "=SUM(R[-10]C+R[-4]C)";
	КонецЦикла;
и так далее
...
Рейтинг: 0 / 0
29.10.2007, 07:55
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34903317
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
XL.Workbooks.SaveAs(СокрЛП("c:\1.xls"));
Поле агрегатного объекта не обнаружео (SaveAs)
...
Рейтинг: 0 / 0
30.10.2007, 01:22
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34903447
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Код: plaintext
XL.Workbooks("C:\1.xls").SaveAs();
...
Рейтинг: 0 / 0
30.10.2007, 07:42
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34905125
Lunx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lunx
Участник
http://195.208.240.17/eluch_21/1c_lang/lang040.htm#3316
...
Рейтинг: 0 / 0
30.10.2007, 16:08
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34964046
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
>XL.Workbooks("C:\1.xls").SaveAs();

Странно, что Excel, стартоет в фоне, а файл 1.xls не создается. Что не так?
...
Рейтинг: 0 / 0
26.11.2007, 01:05
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34966241
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Admin_VladСтранно, что Excel, стартоет в фоне, а файл 1.xls не создается. Что не так?Прошу прощения за не правильный ответ

так будет видно, как формируется книга, но это тормозит, если записей много
Код: plaintext
1.
    XL.Application.ScreenUpdating =  1 ;
    XL.Visible =  1 ;

так сохранить и закрыть Excel совсем
Код: plaintext
1.
	XL.ActiveSheet.SaveAs("C:\1.xls");
	XL.Quit();
...
Рейтинг: 0 / 0
26.11.2007, 18:16
| Ответить | Цитировать | Написать  
Как подсчитать количество дней между первой и последней датой в колонке?
    #34967127
Фотография Admin_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Admin_Vlad
Участник
Так заработало! Спасибо за подсказку!
...
Рейтинг: 0 / 0
27.11.2007, 09:48
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как подсчитать количество дней между первой и последней датой в колонке?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=34899279&tid=1525160]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 269ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 69ms
get tp. blocked users:
 2ms
others: 14ms
total:  404ms
созд. / загр.: 404ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]