MyTetra Share
Делитесь знаниями!
Разделение целой и дробной части суммы заданными разделителями.
19.07.2018
19:40
Раздел: VBA - Access - msa.polarcom.ru - 14 Преобразование Чисел и Дат


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

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

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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования