Не получается SLK
Модераторы: m0p3e, edward_K, Модераторы
Не получается SLK
Еще раз здрасьте всем.
Делаю на основе стандартного галактического отчета SLK-отчет...
т.е. скопировала в ексел подформатировала... сохранила... откомпилировала... подцепила... но почему то суммы выкидываются без дробной части... кто знает что я не так делаю???
Делаю на основе стандартного галактического отчета SLK-отчет...
т.е. скопировала в ексел подформатировала... сохранила... откомпилировала... подцепила... но почему то суммы выкидываются без дробной части... кто знает что я не так делаю???
Я не торможу, я уже приехала!
-
- Местный житель
- Сообщения: 412
- Зарегистрирован: 28 апр 2005, 11:34
- Откуда: Галактика Млечный Путь
помоему числа в экселе надо приводить к строке по формату такого типа и выводить в галки:
// Формат для вывода сумм
efSumFormatExcel = '[|-]3666666666666666666[|,]99';
// Формат для вывода Колличественных чисел
efKolFormatExcel = '[|-]3666666666666666666';
// Формат для вывода дат
efDateFormatExcel = 'DD.MM.YYYY';
// Формат для вывода месяцев в формате дата (период)
efPeriodFormatExcel = 'MM.YYYY';
// Формат для вывода сумм
efSumFormatExcel = '[|-]3666666666666666666[|,]99';
// Формат для вывода Колличественных чисел
efKolFormatExcel = '[|-]3666666666666666666';
// Формат для вывода дат
efDateFormatExcel = 'DD.MM.YYYY';
// Формат для вывода месяцев в формате дата (период)
efPeriodFormatExcel = 'MM.YYYY';
Цифири:
Формат ячейки указать явно.
.fields
string ( MyDouble, 0, 2 );
.endfields
^
2-количство цифр после запятой.
Даты:
Формат ячейки указать явно.
.Function d2excel(dt : date):string;
begin
IF (dt=date(00,00,0000)) then d2Excel := 'Нет даты'
else d2Excel := string(CalcDaysBetweenDates(date(01,01,1900),Add_Day(dt,1),false));
end.
.fields
d2Excel ( MyData )
.endfields
^
Формат ячейки указать явно.
.fields
string ( MyDouble, 0, 2 );
.endfields
^
2-количство цифр после запятой.
Даты:
Формат ячейки указать явно.
.Function d2excel(dt : date):string;
begin
IF (dt=date(00,00,0000)) then d2Excel := 'Нет даты'
else d2Excel := string(CalcDaysBetweenDates(date(01,01,1900),Add_Day(dt,1),false));
end.
.fields
d2Excel ( MyData )
.endfields
^
Спасибо!!!
Огромное спасибо получилось!!!
А никто не знает с какой стати то он обрезает дробную часть???
А никто не знает с какой стати то он обрезает дробную часть???
Я не торможу, я уже приехала!
-
- Местный житель
- Сообщения: 412
- Зарегистрирован: 28 апр 2005, 11:34
- Откуда: Галактика Млечный Путь
Re: Спасибо!!!
Дурное дело - не хитроеNatalika писал(а):А никто не знает с какой стати то он обрезает дробную часть???
Re: Не получается SLK
В slk из прототипа лезла дата: string;string(CalcDaysBetweenDates(date(01,01,1900),Add_Day(dt,1),false));
В slk не отображалась как дата, пока не сделаешь F2+Enter.
Совет с CalcDaysBetweenDates - помог. Спасибо!!!
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Re: Не получается SLK
можно добавить
.slknumber
и установить формат ячеек.
.slknumber
и установить формат ячеек.