TopPicLogo TopPicText

Разделение целой и дробной части суммы заданными разделителями.

Обычно для оформления ценников ... и т.п.

Public Function esRubKop(cSumm As Currency, Optional Rub As String = "=", Optional Kop As String = "") As String
'es 18.01.04
'Разделяет рубли и копейки суммы тем что у казанно в аргументах
'По умолчанию разделяет целую и дробную часть знаком:  =
'--------------------------------------------------------------------
'Аргументы:
'   cSumm   =  Сумма
'   Rub     =  То, что после рублей
'   Kop     =  То, что после копеек
'--------------------------------------------------------------------
'Например:
'    Debug.Print esRubKop(12.22)                  'вернет - 12=22
'    Debug.Print esRubKop(12.22, "р.", "к.")      'вернет - 12р.22к.
'--------------------------------------------------------------------
Dim str As String
Dim TRub As String
Dim TKop As String
Dim intLen As Integer

On Error GoTo RubKopErr
    str = Format(cSumm, "0.00")
    intLen = Len(str)
    TRub = Mid(str, 1, intLen - 3)
    TKop = Mid(str, intLen - 1)
    esRubKop = TRub & Rub & TKop & Kop
    Exit Function
RubKopErr:
    esRubKop = "#Ошибка#"""
End Function

Назад ToTop
L.E. 12.11.2012
Рейтинг@Mail.ru