Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как подсчитать количество дней между первой и последней датой в колонке? / 17 сообщений из 17, страница 1 из 1
25.10.2007, 00:03
    #34892987
Admin_Vlad
Admin_Vlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
Как подсчитать количество дней между первой и последней датой в колонке?

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

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

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

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

А, вы не знаете какой эквивалент на английском команде 'конеццикла' ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2007, 05:18
    #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, 09:34
    #34896333
Reder
Reder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
Admin_VladСпасибо, для 7.7, я не знал что у 7 и 8 большие различия.

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

В меню конфигуратора
"Сервис"->"Параметры"->"Синтакс-Помощник"->"Использовать оба языка"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2007, 07:31
    #34900410
Admin_Vlad
Admin_Vlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
Не подскажите как выгрузить данные из 1С в Excel? Может есть кусок кода или ссылка на статью в Интернет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2007, 07:55
    #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
| Ответить | Цитировать | Написать  
30.10.2007, 01:22
    #34903317
Admin_Vlad
Admin_Vlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
XL.Workbooks.SaveAs(СокрЛП("c:\1.xls"));
Поле агрегатного объекта не обнаружео (SaveAs)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2007, 07:42
    #34903447
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
Код: plaintext
XL.Workbooks("C:\1.xls").SaveAs();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2007, 16:08
    #34905125
Lunx
Lunx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
http://195.208.240.17/eluch_21/1c_lang/lang040.htm#3316
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2007, 01:05
    #34964046
Admin_Vlad
Admin_Vlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
>XL.Workbooks("C:\1.xls").SaveAs();

Странно, что Excel, стартоет в фоне, а файл 1.xls не создается. Что не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2007, 18:16
    #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
| Ответить | Цитировать | Написать  
27.11.2007, 09:48
    #34967127
Admin_Vlad
Admin_Vlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать количество дней между первой и последней датой в колонке?
Так заработало! Спасибо за подсказку!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как подсчитать количество дней между первой и последней датой в колонке? / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 417ms
Закрыть
start [/forum/topic.php?fid=28&tablet=1&tid=1525160]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 260ms
total:  417ms
x
x
Закрыть


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