你的问题,修改这句代码即可
Dim v2 As String = ar(1) '定义小数点后的数段
为什么不改成【时段】列?
http://www.foxtable.com/webhelp/scr/2505.htm