|
<< Click to Display Table of Contents >> Navigation: Apollo API Listing > sx_GetDouble |
Declare Function sx_GetDouble Lib "Apollo9.dll"
(ByVal cpFieldName As String)
As Double
DOUBLE FAR PASCAL sx_GetDouble
(BYTEP cpFieldName);
Extracts the contents of a numeric field and converts it to a double value.
Note: Many of the sx_Get* functions can be replaced with a single call to sx_GetVariant. The sx_Get* functions that return specific data types are primarily for C programmers who cannot use sx_GetVariant.
cpFieldName: The name of the field.
The numeric value of the field converted to a double precision number.
Sub List1_DblClick ()
Dim FldName As String
Dim dVal As Double
FldName = RTrim$((List1.Text))
If Len(FldName) > 0 Then
If sx_FieldType(FldName) = "N" Then
BoxInt.Text = Format$(sx_GetInteger(FldName), "00000")
BoxLong.Text = Format$(sx_GetLong(FldName), "0000000")
dVal = sx_GetDouble(FldName)
BoxDouble.Text = Format$(dVal, "000#.00")
End If
BoxString.Text = sx_GetString(FldName)
If sx_FieldType(FldName) = "D" Then
BoxDate.Text = sx_GetDateString(FldName)
Else
BoxDate.Text = ""
End If
...
...
End If
End Sub
DOUBLE dValue;
dValue = sx_GetDouble("price");