Obrigado Rosberg... Eu tentei da seguinte Forma...
if (Time > StrToTime('09:15:00')) and (Time <
StrToTime('17:59:59')) Then
Begin
ShowMessage(' Horario Excedido! Favor Pedir ao Administrador
para Registrar sua Entrada!');
End;
E funcionaou legal... Só Não consegui entender MUITO bem o
por que de usar nas condições com Hora Time ao invés de TFormatDateTime...
To aki para qualquer ajuda e sugestões, pois sou iniciante em
Delphi...
Essa condições serve com Data Tbm???
--- Em delphi-br@yahoogrupos.com.br, Rosberg Soares <bergdem...@...>
escreveu
>
> Tente o seginte.
>
> IF Time > strtotime('09:15:00') and
> > Time < strtotime('17:59:59') then
>
>
>
>
> ________________________________
> De: rafaelpinto19 <rafaelpi...@...>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Quinta-feira, 29 de Janeiro de 2009 20:36:02
> Assunto: [delphi-br] Mais de uma condição com "FormatDatetime"!!!
>
>
>
>
> BOa noite pessoal,
>
> Estou desenvolvendo um Registro de Pontos de Funcionários por
> senha mesmo, até eu implementar um ponto por código de Barras, Mas
> estou tento o Seguinte PROBLEMA:
>
> No Programa, o Funcionário chega, Coloca sua senha e registra
> sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
> entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
> poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o "
> FormatDateTime" desse Jeito:
>
> IF FormatDateTime( 'hh:nn:ss' ,NOW) > '09:15:00' then
> Begin
> ShowMessage( 'Horário Excedido! Favor Pedir para o
> Administrador Registrar sua Entrada!');
> End;
>
> Até aí Funciona Legal....
>
> Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
> LIBERADO para resgistrar o Final de expediente de Cada um...
>
> Eu tento colocar desse jeito:
>
> IF FormatDateTime( 'hh:nn:ss' ,NOW) > '09:15:00' and
> FormatDateTime( 'hh:nn:ss' ,Now) < '17:59:59' then
>
> ...Mas sempre lá embaixo me volta essa mensagemn: " Operator
> not aplicable to this tipo" ou outra mensagem...
>
> Resumindo... Não sei o que fazr para LIBERAR meu programa para
> os Funcionários resgistrarem sua saída...Se alguém Puder me dar uma
> AJUDA...ME dar uma Idéia...
>
> Aguardo Respostas!!! !
>
>
>
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
