Erro no CDBL

[Gilberto Jr 26]

Boa tarde;

 

Eu faço uma consulta no banco de dados com a seguinte SQL

 

select TIME_TO_SEC(timediff(sec_to_time(sum(TIME_TO_SEC(horario_saida))),sec_to_time(sum(TIME_TO_SEC(horario_chegada))))) as horatrabalhada,sum(TIME_TO_SEC(jornada)) as jornada from registro where data between '20140401' and '20140430' and registro.matricula='04713' and dia_semana not in ('SAB','DOM') and horario_chegada!='00:01:00' and horario_saida!='09:01:00'

 

Os campos HORATRABALHADA e JORNADA estão vindo NULL dai na minha pagina asp eu digo o seguinte.

 

 

if CDBL(horatrabalhada) > CDBL(jornada) then
response.write("hora extra")
elseif CDBL(horatrabalhada) < CDBL(jornada) then
response.write("atraso")
end if

 

Só que esta dando erro.

 

Erro de tempo de execução do Microsoft VBScript erro '800a005e'
Uso inválido de Null: 'CDAte'

 

Já tentei fazer se HORATRABALHADA = NULL não fazer o processo de busca mas não funciona.

 

Alguém tem alguma dica do que posso fazer?

 

Att;

[xanburzum 169]

ela não pode receber = NULL, tipo olha este exemplo:

 

 

<% 
    hora = rs("hora") 
    if len(hora) > 0 then 
        horax = replace(hora, alguma coisa, outra coisa) 
    else 
        horax = "" 
    end if 
%>

com isso dá certo

[Gilberto Jr 26]

Vishi, nesse caso tem alguma solução que eu posso usar?

 

Att;

[xanburzum 169]

faz um if nele para verificar se é Null

[Gilberto Jr 26]

Obrigado XAN, resolvi com o COUNT do SQL.

 

 

if cint(verificahoraextra("total")) = 0 then
 
response.Write("")
 
else
 
if Cdbl(verificahoraextra("jornada")) > Cdbl(verificahoraextra("horatrabalhada")) then
response.Write("O funcionario '"&funcionario("nome")&"' teve "&Cdate(right(horaextra("horaextra"),8))&" de Atraso")
elseif Cdbl(verificahoraextra("jornada")) < Cdbl(verificahoraextra("horatrabalhada")) then
response.Write("O funcionario '"&funcionario("nome")&"' teve "&Cdate(right(horaextra("horaextra"),8))&" de Hora Extra")
end if
 
end if

 

Att;

[xanburzum 169]