DJhow

Tentei usar este código mas ele não retornou nenhum resultado; please uma light XD

e como que eu faço para acusar atraso apenas uma vez

poxa cara esse código esta certo mais não resolveu meu problema é que é assim uso uma edit que me trás o horário de entrada do funcionário e um edit com horário limite e um que soma os dois horários fazendo dar o horário ex: 08:00:00+00:15:00 e devo fazer acusar atraso a partir do resultado e deve me retornar apenas uma vez o atraso. tentei usa este código mas ele me trás atraso a cada vez que dou a entrada do funcionário. P.F

meu código é esse más não me mostra o atraso hora1 := StrToTime(Edit3.Text); hora2 := StrToTime(Edit13.Text); total := Hora2 + Hora1; edit14.Text := FormatDateTime('hh:nn:ss',total); end; if edit7.Text>=edit14.Text then begin MColor:=clRed; slistbox1.Items.Add(edit2.Text+' '+edit5.Text+' '+slabel1.Caption); slistbox2.Clear; slistbox2.Items.Add('Cracha: '+edit4.Text); slistbox2.Items.Add(edit2.Text); slistbox2.Items.Add('Funcionário esta Atrasado'); edit1.Clear; slistbox2.Font.Color:=mColor;

Mas qual codigo eu devo colocar Porque fiz um mas toda vez que se bate a entrada ele sempreacusa atraso E deveria apenas mostrar o atraso do horario de entrada na parte da manha. Vlw

Eae pessoal tudo bom? vim com uma duvida que não achei solução nem pela internet tenho um painel de controle de usuário sendo que ao passar o cartão ele grava tudo certo entrada/saída mas precisava que se o funcionário chega-se depois da tolerância de atraso ele acusa-se o atraso do mesmo não precisa avisa quantos minutos atrasado só o aviso mesmo se alguém puder me ajuda agradeço muito pois iria melhorar muito meu sistema e se tiver com aviso de quantos minutos esta em atraso seria melhor ainda muito obrigado a todos

Jhonas você me deu uma luz pela sua dica resolvi no erro com sua dica vi que o windows estava correto o problema estava no banco de dados eu estava gravando como string sendo que o correto é salva em date fiz essa mudança e agora esta normal trazendo a consulta corretamente muito obrigado e caso alguém tenha a mesma duvida deixe a linha data da tabela como date e ira funcionar Vlw Jhonas :)

como vejo isso?

Ola pessoal da scriptbrasil tenho uma duvida em questão a pesquisa por data no delph Eu tenho uma rotina de pesquisa por data e estava tudo bem mas do nada ele parou de filtrar os registro pela data e me retorna a pesquisa sem dados ou seja a dbgrid só aparece o nome dos campos sem os dados; meu codigo é esse e uso o componente zQuery do pacote zeoslib com mysql Z_Pesq.Close; Z_Pesq.SQL.Clear; Z_Pesq.SQL.Add('SELECT data FROM controle_entrada'); Z_Pesq.SQL.Add('WHERE data>=:param1 and data<=:param2'); Z_Pesq.ParamByName('param1').AsDate :=DateTimePicker1.Date; Z_Pesq.ParamByName('param2').AsDate :=DateTimePicker2.Date; Z_Pesq.Open; por favor me ajudem pois preciso deste filtro para termina meu projeto.