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

Тема: RealToString

Может кто подскажет как решить эту проблему.
x = ThisDrawing.Utility.RealToString(х_, acDecimal, 2)
Set textX = ThisDrawing.ModelSpace.AddText(x, ins, 2.2)
Текст получается 23.7
, а хотелось бы 23.70
"Dimzin=4" ничего не даёт

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: RealToString

Function AddStringZero(WorkingString As String, LengthAfterSeparator As Long) As String
' Добавление "0" в конец строкового представления числа
'
' Примеры вызова:
'AddStringZero("23.7", 2)    -> "23.70"
'AddStringZero("23,7", 2)    -> "23.70"
'AddStringZero("23.7", 4)    -> "23.7000"
'AddStringZero("23.7654", 2) -> "23.7654"
Dim FixString As String, DecString As String
  WorkingString = Replace(WorkingString, ",", ".")
  FixString = Left(WorkingString, InStr(WorkingString, "."))
  DecString = Right(WorkingString, Len(WorkingString) - InStr(WorkingString, "."))
  While Len(DecString) < LengthAfterSeparator
    DecString = DecString & "0"
  Wend
  AddStringZero = FixString & DecString
End Function

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

Re: RealToString

Thank you....

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

Re: RealToString

Так по проще будет:

y = 23.7
x = Format(y, "#0.00")

Посмотрите помощь с примерами по данной функции, у неё много разных форматов.