俺が使ってる構造体 Public Structure T_STOCKINFO Dim ID As Integer ' ID Dim Name As String ' 名前 Dim Abbr As String ' 省略名 Dim MarketID As String ' 市場 Dim LastUpdate As DateTime ' 更新日時 Dim Recent As Integer ' 現在値(Integer) Dim RecentTime As String ' 現在値時刻 Dim Change As Integer ' 前日比(Integer) Dim PercentageCharge As Double ' 騰落率 Dim Volume As Long ' 出来高(Long) Dim ClosingPrice As Integer ' 前日終値(Integer) Dim OpeningPrice As Integer ' 始値(Integer) Dim OpeningTime As String ' 始値時刻 Dim HighPrice As Integer ' 高値(Integer) Dim HighTime As String ' 高値時刻 Dim LowPrice As Integer ' 安値(Integer) Dim LowTime As String ' 安値時刻 Dim NoOffer As Integer ' 売気配(Integer) Dim NoOfferAmount As Long ' 売気配数量(Long) Dim ReadyBidPrice As Boolean Dim BidPrice As Integer ' 買気配(Integer) Dim BidPriceAmount As Long ' 買気配数量(Long) End Structure
