Programa Ponto Eletrônico

14/05/2003

1

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;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira