VariantI1FromVariantInt
(DecimalInt, CurrencyInt)
f90VB Modules
f90VBDefs, f90VBVariants
Summary
Returns the integer portion of a variant.
Syntax
| type(VARIANT) function VariantInt | (VarValue, iRet) |
| type(VARIANT),intent(in):: | VarValue |
| integer(HRESULT_KIND),intent(out),optional:: | iRet |
Arguments
VarValue [Input]
A variant value. Must be initialized variants.
iRet [Output/Optional]
Upon return, iRet contains S_OK or an error code. See comments for more information.
Comments
If variant is negative, then the first negative integer less than or equal to the variant is returned. Functions DecimalInt and CurrencyInt work exactly the same as VariantInt, but the arguments and the return value are of type DECIMAL and CURRENCY respectively.
Argument iRet
Indicates success or failure of the subroutine. The following codes can be returned in this argument:
| Value returned in argument iRet | Description | |
| S_OK | Success. | |
| DISP_E_BADVARTYPE | One or both of the passed variant types are not a valid type of variant. | |
| DISP_E_TYPEMISMATCH | At least one of the variants could not be coerced to the appropriate type for this operation. | |
| E_INVALIDARG | One of the arguments is invalid. | |
| E_OUTOFMEMORY | Memory could not be allocated for the operation.. | |