Programa Ponto Eletrônico
14/05/2003
0
Estou desenvolvendo um Programa dde Ponto Eletrônico e não sei como fazer o código abaixo, funcionar corretamente. É um código que diz respeito às condições de entrada e saída de cada funcionário:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Ano,Mes,Dia:Word;
HoraEntrada,Min,Sec,MSec:Word;
Begin
Edit2.Enabled:= True;
If (Edit1.text = ´karen´) and (Edit2.Text = ´kaka´) then
begin
If (HoraEntrada < 8.0) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(8) + ´:´ +
IntToStr(00) + ´:´ + IntToStr(Sec)));
end;
If (HoraEntrada >= 8) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(HoraEntrada) + ´:´ +
IntToStr(Min) + ´:´ + IntToStr(Sec)));
End;
If (HoraEntrada = 18) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(18) + ´:´ +
IntToStr(00) + ´:´ + IntToStr(Sec)));
End
Else
Begin
Edit1.SetFocus;
End;
End;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Ano,Mes,Dia:Word;
HoraEntrada,Min,Sec,MSec:Word;
Begin
Edit2.Enabled:= True;
If (Edit1.text = ´karen´) and (Edit2.Text = ´kaka´) then
begin
If (HoraEntrada < 8.0) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(8) + ´:´ +
IntToStr(00) + ´:´ + IntToStr(Sec)));
end;
If (HoraEntrada >= 8) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(HoraEntrada) + ´:´ +
IntToStr(Min) + ´:´ + IntToStr(Sec)));
End;
If (HoraEntrada = 18) then
Begin
DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,HoraEntrada,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label3.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(18) + ´:´ +
IntToStr(00) + ´:´ + IntToStr(Sec)));
End
Else
Begin
Edit1.SetFocus;
End;
End;
Kaybueno
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)