• Builder
  • Восстановленный участник
  • На форуме с 13 марта 2007г.
  • Сообщений: 11
  • Спасибо: 0

Тема: Формат числа

Не подскажите как форматировать число, чтобы после разделителя(точки) оставаолось 3 знака?

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Формат числа

Dim valueAsReal As Double
'Присваиваешь числовое значение valueAsReal
Dim valueAsStr As String
valueAsStr = ThisDrawing.Utility.RealToString(valueAsReal, acDecimal, 3)

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: Формат числа

[rus] ili tak:
[/rus]

NewValue=Int(valueAsReal*1000)/1000

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Формат числа

> Gogi
Это если valueAsReal*1000 представимо как целое, т.е. valueAsReal < 2147484 (приблизительно)

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Формат числа

P.S.: Вообще-то есть еще и стандартная VBA-шная функция Round:

Round(valueAsReal, 3)

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Формат числа

результат=Format$(число,"0.000")