Delphi dicas

Acumulador de horas (soma tempo, horas)

//esta dica serve para acumular horas digitadas ...



procedure TFrColaborador.BtGravarClick(Sender: TObject);

//  declare ela

procedure AcumulaHoras(Tempo : TTime);

private

{ Private declarations }

public

{ Public declarations }

end;



var

// declare as seguintes variaveis

Acumula: array[1..2] of integer;

Hora,minuto:Integer;



implementation







//TFrColaborador subistua pelo nome do seu formulario

procedure TFrColaborador.AcumulaHoras(Tempo : TTime);

begin

        Hora:=Hora+StrToInt(Copy(TimeToStr(Tempo),1,2));

        Minuto:=Minuto+StrToInt(Copy(TimeToStr(Tempo),4,2));

        If Minuto >= 60 Then

        Begin

                Hora:=Hora+1;

                Minuto:= minuto - 60;

        end;

        Acumula[1]:=Hora;

        Acumula[2]:=Minuto;

end;





//exeplo de como chamala

procedure TFrColaborador.BtGravarClick(Sender: TObject);

begin

        Hora:= 0;

        minuto := 0;

        AcumulaHoras(StrToTime('10:03:00'));

        // depois de passar todos os tempos, pode mostrar para o usuario num edit desse jeito

        EdHoras.Text:= FormatFloat('00',Acumula[1])+':'+FormatFloat('00',Acumula[2])+':00';



end;





//by thiago