Visual Basic

Christian Graus wrote:

what format do you want, specifically, or don't you care, so long as it represents a date as an int ?

Dim timeParts() as string
timeparts = TickData(i).dTime.Str.Split(":")
TickData(i).dTime.H = Ctype(timeParts(0), Single)
TickData(i).dTime.M = Ctype(timeParts(1), Single)
TickData(i).dTime.S = Ctype(timeParts(2), Single)

Structure TickTime
        Dim H As Single
        Dim M As Single
        Dim S As Single
        Dim Str As String
    End Structure

    Structure TickD
        Dim CPrice As Double
        Dim dTime As TickTime
        Dim Vol As Double
    End Structure

Sub LoadData()

ReDim TickData(50)

end sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        Dim timeParts() As String
        For i = 1 To UBound(TickData)
            timeParts = TickData(i).dTime.Str.Split(":")
            TickData(i).dTime.H = CType(timeParts(0), Single)
            TickData(i).dTime.M = CType(timeParts(1), Single)
            TickData(i).dTime.S = CType(timeParts(2), Single)
        Next
end sub

Public Structure TickTime
    Public H As Single
    Public M As Single
    Public S As Single
    Public Str As String
End Structure

For i = 0 To TickData.GetUpperbound(0)

try
    'do you test here
catch ex as exception
    'tell the user what happened by showing the exception
    msgbox(ex.tostring)
    exit sub
end try

If Textbox1.Text.Length <= 0 then
    Msgbox("An entry is required in Textbox1")
    Textbox1.Focus
    Exit Sub
End If

If Textbox1.Text.Trim.Length <= 0 then
    Msgbox("An entry is required in Textbox1")
    Textbox1.Focus
    Exit Sub
End If