Erro de sintaxe

[horse 0]

tenho essa parte no codigo..Alguém sabe me dizer porque esta dando este erro..Error Type:Microsoft VBScript runtime (0x800A000D)Type mismatch-----SET RS = conn.Execute("SELECT sum(Hora_Dec) as total_horas from tbCompromissos")TOTAL_HORAS = RS("total_horas") horas_trabalhar = 198hora_trab = rs("total_horas") if hora_trab > horas_trabalhar thencredito = (hora_trab - horas_trabalhar) //->indica que o erro esta nesta linhaelsecredito = 0end if ----

[Mário Monteiro 179]

tente mudar por isso...e veja se vem o mesmo erro---------------------------------------SET RS = conn.Execute("SELECT sum(Hora_Dec) as total_horas from tbCompromissos")TOTAL_HORAS = RS("total_horas")horas_trabalhar = 198hora_trab = TOTAL_HORASif hora_trab > horas_trabalhar thencredito = (hora_trab - horas_trabalhar)elsecredito = 0end if

[horse 0]

continua mesmo erro.. =/

[Mário Monteiro 179]

tente assimSET RS = conn.Execute("SELECT sum(Hora_Dec) as total_horas from tbCompromissos")TOTAL_HORAS = RS("total_horas")horas_trabalhar = 198hora_trab = TOTAL_HORASif CINT(hora_trab) > CINT(horas_trabalhar) thencredito = (CINT(hora_trab) - CINT(horas_trabalhar))elsecredito = 0end if

[ultra 0]

O seu campo Hora_Dec é de q tipo ?

[horse 0]

vlaeuuu mario...deu certinhoooo!!!!

[Mário Monteiro 179]

VLAEUUU MARIO...DEU CERTINHOOOO!!!!

de nada tiozinho :natalw00t: