Имя: Пароль:
1C
1C 7.7
v7: Преобразование строки в число,обрезаются десятые
0 vie_za
 
16.02.13
18:34
Процедура Сформировать()

проба = Строка("01,72") ;
проба_1= Строка("1,51") ;
проба_2= Строка("31,45") ;


проба  =Число(проба);
проба_1= Число(проба_1);
проба_2= Число(проба_2);

сообщить(проба);
сообщить(проба_1);
сообщить(проба_2);

КонецПроцедуры

выводится только целая часть числа.
Покурил Формат(),но получилась полная хрень..
Куда рыть еще?
1 Tatitutu
 
16.02.13
18:35
больше не пей, дождись понедельника
2 Эльниньо
 
16.02.13
18:36
)
Невнимательно курил.
Покури ещё.
3 vie_za
 
16.02.13
18:39
правильный ответ

//проба  =Число(проба);
Формат(проба,"Ч19,2");
4 EvgeniuXP
 
16.02.13
19:01
перебери циклом :)
5 vie_za
 
16.02.13
19:06
Увы мне ,увы...рано обрадовался

при вытаскивании данных из екселя не взлетает

       
//Темр ="15382.05"                            Темр=мВходExcel.ActiveSheet.Cells(лчНомерСтроки,12).TEXT;//Темр ="15382,05"
                           рез=ИзмФорматСтроки(Темр)//;рез = "15382,05"
                           реза=Строка(рез);//реза = "15382,05"
                           результат=Формат(реза,"Ч16,2"); "           15382"

//как видите,после форматирования копейки опять обрезало.

Блин голова кругом идет-ЧЯДН?
6 КонецЦикла
 
16.02.13
19:07
В Екселе и в 1С насколько помню дробная часть отделяется разными знаками
Спасет Заменить()
7 vie_za
 
16.02.13
19:10
(6) ну,да..я и подгонял под 1С..
преобразовывал
23.45 в 23,26

что Заменить() то?
8 Zaval
 
16.02.13
19:10
СтрЗаменить(....., ",", ".");
9 Zaval
 
16.02.13
19:11
преобразовывал
23.45 в 23,26

Для 1с надо наоборот)))
10 vie_za
 
16.02.13
19:12
(9) сейчас попробую
11 КонецЦикла
 
16.02.13
19:14
Ну вроде так и есть
СтрЗаменить(Стр, ",", ".");
12 vie_za
 
16.02.13
19:17
увы мне..
с точкой вместо запятой-тот же результат

Темр = "15382.05"
рез = "15382.05"
реза = "15382.05"
результат = "           15382"
13 Эльниньо
 
16.02.13
19:29
Гонишь
14 КонецЦикла
 
16.02.13
19:29
А так?
Число(СокрЛП(СтрЗаменить(Стр, ",", ".")))
15 Zaval
 
16.02.13
19:30
(12) Обработку переоткрой. )) Если два экземпляра открыто - не поможет
16 Cthulhu
 
16.02.13
19:46
Число(СтрЗаменить(СтрЗаменить(<ЧоПопало>," ",""),",",".")
// это ж над так мучиться над такой фигнёй.. а может это всё - "не товё" просто?..