Dim Hou As Integer 'ตัวแปร Part_no
Dim Min As Integer 'ตัวแปร IN_TO
Dim Sec As Integer 'ตัวแปร QTY
Dim Mil As Integer ' ตัวแปล lot
Dim F33() As String = DataGridView1(12, k).Value.Split(",")
Hou = (F33(0)) ' ชั่วโมง
Min = (F33(1)) ' นาที
Sec = (F33(2)) ' วินาที
Mil = (F33(3)) ' มิลลิเซค ' 2304000000 640
Dim interval As New TimeSpan(Hou, Min, Sec, Mil)
Dim nMilliseconds As Long = interval.Hours * 60 * 60 * 1000 +
interval.Minutes * 60 * 1000 +
interval.Seconds * 1000 +
interval.Milliseconds
DataGridView1(14, k).Value = nMilliseconds
Load balance : Server 03
