|
Последнее обновление 11/21/02.
| |
| Функция fmtCurrency
преобразовывает число к денежному
формату: разделитель - точка, два знака
после точки. |
'-----------------------------------------------------
'Функция fmtCurrency преобразовывает число
'к денежному формату: разделитель - точка,
'два знака после точки.
'-----------------------------------------------------
'Откройте новый проект. Добавьте на Form1
'элементы Text1, Text2, кнопку Command1
'и модуль. Код в модуле:
Function fmtCurrency(sum As Currency) As String
Dim I As String, F As String
I = Format$(Fix(sum), "0")
F = Format$(Fix((sum - Fix(sum)) * 100), "00")
fmtCurrency = I & "." & F
End Function
'Для события Сlick кнопки Command1 введите
код:
Private Sub Command1_Click()
Text2.Text = fmtCurrency(Text1.Text)
End Sub |
| |
|
