Как мы можем отобразить общее количество отчетов в словах в SSRS?
привет,
Как мы можем отобразить общее количество отчетов в словах в SSRS??
экс:
общая сумма счета: 12000
Дисплей как:
Общая сумма счета: двенадцать тысяч рупий/доллар США
Спасибо..
Функция SpellNumber(ByVal MyNumber)
Тусклые Дирхемы, Филы, Темп
Тусклое Десятичное Место, Граф
Тусклое Место(9) В Виде Струны
Место(2) = " Тысяча "
Место(3) = " Миллион "
Место(4) = " Миллиард "
Место(5) = " Триллион "
- Строковое представление суммы.
MyNumber = Trim(Str(MyNumber))
- Позиция десятичного знака 0, если нет.
DecimalPlace = InStr(MyNumber, ".")
- Конвертируйте Fils и установите MyNumber в Dirhams amount.
Если DecimalPlace > 0, то
Fils = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
Конец, Если
Количество = 1
Do While MyNumber < & gt; ""
Temp = GetHundreds(Right(MyNumber, 3))
Если темп &ЛТ;&ГТ; "" тогда дирхамов = темп &амп; место(графа) &ампер; дирхамов
Если Len(MyNumber) > 3, то
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Еще
MyNumber = ""
Конец, Если
Count = Count + 1
Петля
Выбрать Дирхамы
Случай ""
Дирхам = "Нет Дирхамов"
Случай "Один"
Дирхам = "Один Дирхам"
Дело Другое
Дирхемы = дирхемы & " дирхемы"
Конец Выбрать
Выбрать ФИС
Случай ""
ФИС = " "
Случай "Один"
Fils = " и один Fils"
Дело Другое
ФИС = " и "&АМП; ФИС &ампер; " ФИС"
Конец Выбрать
SpellNumber = Dirhams & Fils
Конечная Функция
'Преобразует число от 100 до 999 в текст
Функция GetHundreds(ByVal MyNumber)
Тусклый Результат В Виде Строки
Если Val(MyNumber) = 0, То Функция Выхода
MyNumber = Right("000" & MyNumber, 3)
- Преобразуйте место сотен.
Если Mid(MyNumber, 1, 1) <> "0", то
Результат = GetDigit(Mid(MyNumber, 1, 1)) & " сто "
Конец, Если
- Переведи десятки и единицы на место.
Если Mid(MyNumber, 2, 1) <> "0", то
Result = Result & GetTens(Mid(MyNumber, 2))
Еще
Result = Result & GetDigit(Mid(MyNumber, 3))
Конец, Если
GetHundreds = Результат
Конечная Функция
- Преобразует число от 10 до 99 в текст.
Функция GetTens(TensText)
Тусклый Результат В Виде Строки
Result = "" ' обнуляет значение временной функции.
Если Val(Left(TensText, 1)) = 1, то ' If значение между 10-19...
Выберите Case Val(TensText)
Случай 10: Результат = "Десять"
Случай 11: Результат = "Одиннадцать"
Случай 12: Результат = "Двенадцать"
Случай 13: Результат = "Тринадцать"
Случай 14: Результат = "Четырнадцать"
Случай 15: Результат = "Пятнадцать"
Случай 16: Результат = "Шестнадцать"
Случай 17: Результат = "Семнадцать"
Случай 18: Результат = "Восемнадцать"
Случай 19: Результат = "Девятнадцать"
Дело Другое
Конец Выбрать
Else ' If значение между 20-99...
Выберите Case Val(Left(TensText, 1))
Случай 2: Результат = "Двадцать "
Случай 3: Результат = "Тридцать "
Случай 4: Результат = "Сорок "
Случай 5: Результат = "Пятьдесят "
Случай 6: Результат = "Шестьдесят "
Случай 7: Результат = "Семьдесят "
Случай 8: Результат = "Восемьдесят "
Случай 9: Результат = "Девяносто "
Дело Другое
Конец Выбрать
Result = Result & GetDigit _
(Справа(TensText, 1)) ' Retrieve ones place.
Конец, Если
GetTens = Результат
Конечная Функция
- Преобразует число от 1 до 9 в текст.
Функция GetDigit(Цифра)
Выберите Регистр Val(Цифра)
Случай 1: GetDigit = "Один"
Случай 2: GetDigit = "Два"
Случай 3: GetDigit = "Три"
Случай 4: GetDigit = "Четыре"
Случай 5: GetDigit = "Пять"
Случай 6: GetDigit = "Шесть"
Случай 7: GetDigit = "Семь"
Случай 8: GetDigit = "Восемь"
Случай 9: GetDigit = "Девять"
Дело В Другом: GetDigit = ""
Конец Выбрать
Конечная Функция
сомневаюсь, что через 5 лет этот отчет все еще будет ждать своего создания.