Как сумму разделить пробелом?

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 7 июн 2008.

  1. fedotxxl

    fedotxxl Well-Known Member

    Репутация:
    0
    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Из 1234 в 1 234. Туплю что-то
     
  2. KLif

    KLif Гость

    Репутация:
    0
    Держи.

    Код (Text):
    Function NumberToString(num As Variant) As String
    %REM
    Строит на основании числа строку с разделителем
    %END REM
    On Error Goto TRAP

    Dim str1 As String
    str1 = Cstr(num)

    Dim str2 As String

    If Instr(str1, ",") Then
    str2 = "," & Strright(str1, ",")
    str1 = Strleft(str1, ",")
    End If

    While Len(str1)>0
    str2 = Right(str1, 3) & " " & str2
    If Len(str1)>3 Then
    str1 = Left(str1, Len(str1)-3) 
    Else
    str1= ""
    End If
    Wend

    str2 = Replace(str2, " ,", ",")

    NumberToString = str2

    Exit Function
    TRAP:
    Error Err, Error & " at line " & Erl & " of NumberToString"
    Exit Function
    End Function
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Если в поле, то поставить галку Punctuated at thousands.
     
  4. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.920
    Симпатии:
    1
    Medevic
    +1 именно так и надо
     
Загрузка...
Похожие Темы - Как сумму разделить
  1. Brib
    Ответов:
    3
    Просмотров:
    31
  2. OBLIVIONNN
    Ответов:
    4
    Просмотров:
    70
  3. OBLIVIONNN
    Ответов:
    2
    Просмотров:
    80
  4. CSharPer
    Ответов:
    0
    Просмотров:
    25
  5. Korney
    Ответов:
    8
    Просмотров:
    127

Поделиться этой страницей