CALCULO DE HORA
Olá galera vbmania blz! Tenho que fazer uma calculo de hora de um torno de serviço que est gravado em um db tipo consulto todos os dias trabalhado do mês e tenho que somar o total de horas estou tentando o seguinte mas não esta dando certo.
Dim dblTotal as Double
[ô]aqui consulta a tabela com os horários gravados
Set TbRelatorio = New ADODB.Recordset
strSQL = [Ô]Select * From Presenca Where Matricula=[ô][Ô] & txtMatricula.Text & [Ô][ô] and Mes=[ô][Ô] & Format(Date, [Ô]MM[Ô]) & [Ô][ô] and Ano=[ô][Ô] & Format(Date, [Ô]YYYY[Ô]) & [Ô][ô] and P=[ô][Ô] & [Ô]P[Ô] & [Ô][ô][Ô]
TbRelatorio.Open strSQL, Conexao, adOpenStatic, adLockOptimistic, adCmdText
[ô]aqui efetua a soma dos horários campo 9 da tabela
TbRelatorio.MoveFirst
Do While Not TbRelatorio.EOF
dblTotalI = dblTotalI + CSng(TbRelatorio(9))
TbRelatorio.MoveNext
Loop
mas tá dando erro 13 type mismatch
como faço isso alguém pode me ajudar. desde já agradeço
Dim dblTotal as Double
[ô]aqui consulta a tabela com os horários gravados
Set TbRelatorio = New ADODB.Recordset
strSQL = [Ô]Select * From Presenca Where Matricula=[ô][Ô] & txtMatricula.Text & [Ô][ô] and Mes=[ô][Ô] & Format(Date, [Ô]MM[Ô]) & [Ô][ô] and Ano=[ô][Ô] & Format(Date, [Ô]YYYY[Ô]) & [Ô][ô] and P=[ô][Ô] & [Ô]P[Ô] & [Ô][ô][Ô]
TbRelatorio.Open strSQL, Conexao, adOpenStatic, adLockOptimistic, adCmdText
[ô]aqui efetua a soma dos horários campo 9 da tabela
TbRelatorio.MoveFirst
Do While Not TbRelatorio.EOF
dblTotalI = dblTotalI + CSng(TbRelatorio(9))
TbRelatorio.MoveNext
Loop
mas tá dando erro 13 type mismatch
como faço isso alguém pode me ajudar. desde já agradeço
Olha isto.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=422767
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=422767
Tópico encerrado , respostas não são mais permitidas