GetCurrency Method for LCField
This method retrieves a Currency data type from a value in a field. If the requested data type is different from the field data type, conversion is automatically performed. If conversion is not possible, error LCFAIL_INVALID_CONVERT occurs.
Defined In
LCField
Syntax
Set newCurrency = lcField.GetCurrency (index)
Parameters
| Parameter |
Description |
|---|---|
| index |
Long, >= 1. Index of the field data value to be retrieved. |
Return Value
| Value |
Description |
|---|---|
| newCurrency |
LCCurrency. The value of the retrieved data type. |
Example
Option Public
Uselsx "*lsxlc"
Sub Initialize
On Error LCFAIL_INVALID_CONVERT Goto InvalidCurrency
Dim Fld As New LCField (LCTYPE_TEXT)
Fld.Text = "1234.56789"
Dim vCurr As LCCurrency
Set vCurr = Fld.GetCurrency (1)
Print "The Currency representation of the field is " & vCurr.Text
Exit Sub
InvalidCurrency:
Print "Cannot convert " & Fld.Text & " to type Currency."
Exit Sub
End SubExample Output
The Currency representation of the field is 1234.5678.