F�rum Rotina verifica horario #31400

16/03/2010

o exemplo mostra a necessidade de verificar se o sistema esta entre o perido das 19:00:00 as 06:59:59 � noite se 07:00:00 as 18:59:59 dia.Conforme o turno preciso inserir um parametro diferente no insert

[#VIDEO-185#]

Carlos Faria

Curtir t�pico

+ 0

Responder

Posts

16/03/2010

Wesley Yamazack

Ol� amigo,
Este chamado ta comigo, vou analisar e logo retorno pra ti.

Um abra�o

Wesley Y

Responder

Gostei + 0

16/03/2010

Carlos Faria

ok , enquanto voce verifica ai eu vou finalizar aqueles chamados anteriores

Responder

Gostei + 0

17/03/2010

Wesley Yamazack

Ol� amigo, veja se seria esta a solu��o.

N�o me recordo do Periodo que voc� quer mas eu fiz um teste partindo do principio que seja manha de 6 as 17:59, seja noite de 18 as 5:59.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Time >= strtoTime('06:00:00')) and
    (Time <= strtoTime('17:59:59')) then
   begin
ShowMessage('Horario da Manha!!!');
        cdsvalor.value := edtvalorDia.text;
   end
   else
   begin
      ShowMessage('Horario da Tarde/Noite!!!');
      cdsvalor.value := edtvalorNoite.text;
end;

end;

Com isso acho que resolve teu problema.

Um abra�o

Wesley Y

Responder

Gostei + 0

18/03/2010

Carlos Faria

Grande Wesley , funcionando perfeitamente , ja pode fechar o chamado.So uma ultima duvida como vou usar isso em varios forms do projeto como ficaria esse codigo em uma unitservicos digamos assim ! Pode respodender e ja fechar ok

Responder

Gostei + 0

18/03/2010

Wesley Yamazack

Ol� Carlos, voc� pode fazer mais ou menos assim.

TServico = Class

public
function ExecutaCalculo(xValorDia, xValorNoite : Integer) : String;
end;

function TServico.ExecutaCalculo(xValorDia, xValorNoite : Integer) : String;
begin
if (Time >= strtoTime('06:00:00')) and
    (Time <= strtoTime('17:59:59')) then
   begin
ShowMessage('Horario da Manha!!!');
        result := edtvalorDia.text;
   end
   else
   begin
      ShowMessage('Horario da Tarde/Noite!!!');
      Result := edtvalorNoite.text;
   end;
end;

Veja se funciona,

Um abra�o

Wesley Y

Responder

Gostei + 0