时间数据转换，急啊

Question

With rst
     .AddNew
     .Fields(0) = grid1.TextMatrix(i, 1)
     .Fields(1) = grid1.TextMatrix(i, 2)
     .Fields(2) = grid1.TextMatrix(i, 3)
     .Fields(3) = grid1.TextMatrix(i, 4)
     intT = Format((Hour(grid1.TextMatrix(i, 4))), "##")
在这段循环一次后就出错，请帮忙改改。谢！
     strT = Format((Minute(grid1.TextMatrix(i, 4)) / 60), ".##")
     test = CSng(intT & strT)
     .Fields(6) = test
     
    End With
  Next i

Answer 1

strT = Format((Minute(grid1.TextMatrix(i, 4)) / 60), ".##")
根据MSDN：Minute 函数示例
本示例使用 Minute 函数转换指定的时间，得到小时后面的分钟数。在开发环境中，日期和时间原义会根据系统的地区设置，以短式日期和时间格式显示。Dim MyTime, MyMinute
MyTime = #4:35:17 PM#   ' 指定一时间。
MyMinute = Minute(MyTime)   ' MyMinute =35Hour 函数示例
本示例使用 Hour 函数将指定的时间转换为小时数。在开发环境中，日期和时间的原义会根据系统的地区设置，以短式日期和时间格式显示。Dim MyTime, MyHour
MyTime = #4:35:17 PM#   ' 指定一时间。
MyHour = Hour(MyTime）  'MyHour=4
**************************
楼主你那个６０是除不得的！～！～

Answer 2

你在数据库里面把Fields(6)的数据类型改为char就不会有问题的