prague12

Dim date1 = CDate(isget_array(5))

Dim Time_sec = New TimeSpan(date1.Ticks - 0).TotalSeconds
Dim d_sec = Time_sec - old_Time_sec
If d_sec = 0 Then
d_sec = 1
End If