vb+access统计设备故障率

我有张表，表名：设备；字段：
日期         设备名称         故障时间（分钟） 
2012-12-1    ABB                50
2012-12-1    ABC                35
2012-12-1    BCA                29
2012-12-1    AAC                60
2012-12-3    ABB                45
2012-12-2    ABB                50
2012-12-3    ABC                60
2012-12-2    BCA                65  
想求各设备平均每天故障时间占生产时间的百分比。每天正常生产8小时，例：ABB每天占比为：
（50+45+50）/8（小时）/60（分钟）/3（天数）。
根据日期控件（DTPICKER2和DTPICKER1）进行选择查询统计，我的查询语句是：
dim a as integer
a =val(DTPICKER2.VALUE-DPPICKER1.VALUE)
sql="select 设备名称,sum(故障时间)as 总DT,sum(故障时间)/8/60/a as 设备故障率 from 设备 where 日期 between #" & Str(DTPicker1) & "# and #" & Str(DTPicker2) & "#" 
结果提示至少一个参数没有赋值，是天数变量a的问题，将a去掉可以正常查询。请教高手帮忙解答如何才能利用这个天数a进行统计查询，TKS，很急！！！上面只写了关键的查询语句，连接数据库的没有写出。               --------------------编程问答-------------------- sql = "select 设备名称,sum(故障时间)as 总DT,sum(故障时间)/8/60/" & a & " as 设备故障率 from 设备 where 日期 between #" & Str(DTPicker1) & "# and #" & Str(DTPicker2) & "#"  --------------------编程问答-------------------- dim a as Long
a = (DTPICKER2.VALUE - DPPICKER1.VALUE + 1) * 4800
sql = "select 设备名称, sum(故障时间)as 总DT, sum(故障时间)/" & a & " as 设备故障率 from 设备 where 日期 between #" & Format(DTPicker1, yyyy-mm-dd") & "# and #" & Format(DTPicker2, "yyyy-mm-dd") & "#"  --------------------编程问答-------------------- 谢谢高手们的解答，已经完全可以解决问题。 --------------------编程问答-------------------- 还有个问题需要高手帮忙解答的。
我的电脑系统是windows xp繁体版，在电脑上安装了一个VB6.0的繁体企业版，在窗体设计的控件上输入任何汉字不能正常显示，显示为乱码，可以输入数字和英文字母，从其它地方粘贴的汉字也能正常显示。请问应该如何解决此类问题？是否是VB6.0版本也问题和电脑字体不兼容造成的？text控件上就不能输入汉字正常显示。 --------------------编程问答-------------------- 安装VB6 SP6试试看。在控制面板-区域选项，设置为非Unicode程序使用默认编码，设置为简体中文。

补充：VB ,  数据库(包含打印，安装，报表)