powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Значение денежного поля в EXCEL
1 сообщений из 1, страница 1 из 1
Значение денежного поля в EXCEL
    #34318580
Jura.K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите победить, а то времени на эксперименты нету.
Имеется таблица с денежным полем тип Currency
в поле записано число 1.1234
при выводе в Foxe все выводится нормально
1.1234, конечно можно поигратьмся с SET DECIMAL, SET FIXED, SET SYSFORMAT
все получается так как хотим, т.е. количество символов после запятой отображается правильно.
Но как только я пытаюсь перенести это число в EXCEL, оно превращается в число с двумя знаками после запятой. Попытка изменить формат ячейки ни к чему не приводит, отображает три знака после запятой но все равно выводит с округлением.

Код: plaintext
1.
2.
3.
4.
5.
6.
CREATE TABLE _tmpTable (P1 y)
INSERT INTO _tmpTable (p1) VALUES ($ 1 . 1234 )

oExcel=CREATEOBJECT('Excel.application')
oexcel.Workbooks.Add()
oExcel.Visible=.t.
oExcel.ActiveCell.value=P1  
результат в ячейке EXCEL видим 1.12р
пробуем поиграть с форматами EXCELa
Код: plaintext
1.
oExcel.ActiveCell.NumberFormat="#,##0.000 ;-#,##0.000 "
oExcel.ActiveCell.value=P1  
результат в ячейке видим 1.120 т.е. не 1.123, а число округленное до двух знаков
можно конечно сделать так
Код: plaintext
oExcel.ActiveCell.value=MTON(P1)
Но не хотелось применять функцию ведь если сделать
Код: plaintext
COPY TO C:\_tempXLS TYPE XLS 
сохраняется правильно, т.е. если открыть этот файл то все будет верно выведено.
Итак вопрос почему так происходит? Может где то в настройках самого Excela можно указать как принимать денежное значение ? Если кто сталкивался или где уже описано ткните меня пожалуйста носом.
VFP8 SP1
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Значение денежного поля в EXCEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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