juying
小水手
UID 21521
精华
0
积分 2
帖子 2
阅读权限 10
注册 2006-5-2
状态 离线
|
请教用窗体实现统计代码问题
我在窗体里，加了两个时间段，可以选择对特定时间内的员工工资进行合计和求平均数。代码如下，请好心的朋友帮我看一下哪里不对，我实在找不出错误，改不了。谢谢！！！！！
Private Sub CmdOk_Click()
Dim StrSQL As String
StrSQL = "select [实发工资] from 员工工资 where [计发时间] between #DTPFromDate.Value # and #DTPToDate.Value#"
Text1.Text = Sum(CInt(StrSQL))
Text2.Text = Avg(CInt(StrSQL))
End Sub
Function Sum(Num1 As Integer, Optional Num2 As Integer, Optional Num3 As Integer)
Sum = Num1 + Num2 + Num3
End Function
Function Avg(Num1 As Integer, Optional Num2 As Integer, Optional Num3 As Integer)
Avg = (Num1 + Num2 + Num3) / 3
End Function
|
|
