Interactive Brokers Group, Inc.
A new class code window will appear. Step 3 Add the following code to the StockOption class: Public Class StockOption Private strOptionSym As String Public Sub New (ByVal strSymbol As String) strOptionSym = strSymbol End Sub Public ReadOnly Property Symbol() Get Return strOptionSym End Get End Property End Class Notice that the class name is StockOption. Thus, by examining the change in ? Day, Today(), dtExpDate)) / 365 End Function End Module Notice that the TimeTillExp() function makes use of several functions we have looked at in this chapter, including Right() and Left() to find the second-to-last character in the option symbol string, DateValue() to convert a string representation of a date into a variable of data type Date, Year() to determine the year corresponding to the date returned by Today(), and DateDiff() to 102 Introduction to VB.
China Pharma Holdings, Inc.
The Knot, Inc.
Encore Energy Partners LP
Salem Communications Corp.