Syntax

Public Function SymbolInfoDouble(SymbolName As String, propId As ENUM_SYMBOL_INFO_DOUBLE, ByRef doubleVal As Variant) As Boolean

Description

This function is used to return a given symbol information according to property ID and receive the result on doubleVal parameter.

Parameters

Return value

Returns true if successful. In order to get an error, call GetLastError() function.

Sample

 Dim exeResult

 Dim rst

 Dim symbolName
 

 Public Sub main()

    symbolName="EUR/USD"

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_STOP_OFFSET,rst) , "SYMBOL_STOP_OFFSET",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_ASK,rst) , "SYMBOL_ASK",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_BID,rst) , "SYMBOL_BID",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_High,rst) , "SYMBOL_High",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_LOW,rst) , "SYMBOL_LOW",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_VOLUME_MIN,rst) , "SYMBOL_VOLUME_MIN",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_VOLUME_MAX,rst) , "SYMBOL_VOLUME_MAX",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_COMMISSION,rst) , "SYMBOL_COMMISSION",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_LIMIT_OFFSET,rst) , "SYMBOL_LIMIT_OFFSET",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_MARGIN_INITIAL,rst) , "SYMBOL_MARGIN_INITIAL",cstr(symbolName)

    ShowResult SymbolInfoDouble( cstr(symbolName),SYMBOL_CONTRACT_SIZE,rst) , "SYMBOL_CONTRACT_SIZE",cstr(symbolName)

    AlertMessage cstr(exeResult)

 End Sub
 

 Public Sub ShowResult(isTrue,enumDescription,symName)

    if isTrue then

       exeResult=exeResult & CSTR(enumDescription) & " for "  & CSTR(symName) & " is : " & rst

     else

       exeResult=exeResult & "Error during Get " & CSTR(enumDescription) & " due to error code " & ErrorDescription(GetLastError())

    end if

       exeResult=exeResult & vbNewLine

          rst=""

End Sub​

See Also

• SymbolInfoInteger
• SymbolInfoString
• AccountInfoInteger

Back to VTL Client Script Index