Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Ошибка в ...

Тема: Ошибка в примере 16 базы la_form1

15.06.2007 21:02:27

Сергей42

4 сообщения

Тема: Ошибка в примере 16 базы la_form1

В примере 16 - Сумма прописью есть возможность преобразования суммы в банковский вид 125,12 как 125-12, но если ввести 125,86 то получим 126-86
КАК ИСПРАВИТЬ!

P.S. Общий раздел по формам
Автор: Сергей от 16.05.2002 10:20:15 Источник ...

15.06.2007 21:02:27

All

4316 сообщения

RE: Ошибка в примере 16 базы la_form1

Надо скачать этот файл снова или заменить функцию
strConvBank, указанную ниже

'==============================================================
' Назначение:
' вернуть сумму по инструкции центробанка
'
Public Function strConvBank(curMoney As Currency) As String
Dim myCopecks As Long

myCopecks = (curMoney - Fix(curMoney)) * 100
strConvBank = CStr(curMoney - myCopecks / 100)
If myCopecks = 0 Then
strConvBank = strConvBank & "=" 'Без копеек
Else
strConvBank = strConvBank & "-" & Format(myCopecks, "00") 'С копейками
End If
End Function

P.S. Общий раздел по формам
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Ошибка в ...

Поиск

Список форумов

Начало | Forums