Формат числа

[Cody]

Здравствуйте, подскажите как убрать знаки после запятой "не округлять". Например 1999,99 нужно чтоб было 1999,9. Заранее благодарен.

[progmikon]

Ох... на память я не скажу, но по-моему, и формат и окр вернут округленный результат.
Можно попробовать, поработать со строкой, например так:

Код Выделить Развернуть


НужноеЧисло = 1999.99;
НужноеЧисло = СтрЗаменить(НужноеЧисло, Символы.НПП, "");
СимволДробнойЧасти = Найти(НужноеЧисло, ",");
Если СимволДробнойЧасти <> Неопределено Тогда
НужноеЧисло = Число(Сред(НужноеЧисло, 1, СимволДробнойЧасти + 1));
КонецЕсли;
Сообщить(НужноеЧисло);


Хотя, как мне кажется нужно поковырять эти функции. Не думаю, что такая простая задача решается таким количеством кода.

[Cody]

Спасибо большое, попробую.

[progmikon]

Если Формат и Окр не подходят, то тогда

Код Выделить Развернуть

Цел(1999.99*10)/10

Кстати, хорошая идея. +1.

[DenPlus]

Еще как вариант:
   а = 1999.99;
   б = Число(Сред(а, 1, СтрДлина(а)-1));
   Сообщить(б);

Вернет число. Аналогично работает и со строкой.

[DenPlus]

Так я чтоб понятнее было чтоли 

Вот так тогда:
   а = 1999.99;
   а = Число(Сред(а, 1, СтрДлина(а)-1));
   Сообщить(а);

[progmikon]

Еще как вариант:
   а = 1999.99;
   б = Число(Сред(а, 1, СтрДлина(а)-1));
   Сообщить(б);

Вернет число. Аналогично работает и со строкой.

Для а = 1999.999 выдаст 1999.99 - а требовалось 1999.9

Я что-то тоже не понял, где тут противоречие?

[DenPlus]

В дошло до меня. Ясно.

[progmikon]

В дошло до меня. Ясно.

Я понял идею sergejK74.
Ну здесь можно и согласится и нет. Это частный случай, кроме того, автор не уточнял, до какого порядка нужно "урезать запись".

[DenPlus]

   а = 1999.999793733572938572837;
   а = Число(Сред(а, 1, Найти(а,",")+1));
   Сообщить(а);