obtendo o total de horas

Question

Sou novo no forum, mas ouvi boas coisas sobre elebom gostaria que alguem pudesse solucionar minha duvida,preciso somar um monte de horas que estao em um StringGride preciso desse total, mas toda vez q...

Aroldo Zanela · Answer

Colega,O ideal � utilizar vari�veis contendo data e hora, pois como voc� j� percebeu, a unidade de medida para horas come�a em 00:00 � 23:59 e ao ultrapassar o limite final o contador de dias � incrementado.Portanto, basta pegar a data e hora final, subtrair da data e hora inicial, converter tudo para a mesma base para saber o tempo decorrido na base selecionada....

Felippe · Answer

Muito obrigado pela dica,mas usei alguns �artificios t�cnicos� e consegui fazer uma somat�ria das horasprecisa somar varias horas para ter um total de horas em 6 semanaspor exemplo 236:50 minutosbom vou colocar o codigo aki caso alguem preciseapesar que como disse isso � uma gambiarra naum respeitando a orienta��o a objetos ou qualquer outra coisa soh me contactar[code:1:9d47d313a5]//Codigo criar um botao no formprocedure TFormCadHorario.Button1Click(Sender: TObject);var d1 : TTime; d2 : TTime; total :TTime; Totalhoras : Integer; VerificaMin :Integer; //variaveis para usar na funcao decodetime Hour :word; Min  :word; Sec  :word; Msec :Word; Hour2 :word; Min2  :word; Sec2  :word; Msec2 :Word; Hourt :word; Mint  :word; Sect  :word; Msect :Word;begin  d1 := StrToTime(Edit1.Text);  d2 := StrToTime(Edit2.Text);  //soma as horas  total := d1+d2;  //funcao que da horas minutos, segundos e milisegungos  DecodeTime(d1, Hour, Min, Sec, MSec);  DecodeTime(d2, Hour2, Min2, Sec2, MSec2);  DecodeTime(total, Hourt, Mint, Sect, MSect);  //Exibe a quantidade de horas em integer :o) yeah  Totalhoras:=hour + hour2;  VerificaMin:=0;  if(Totalhoras >= 24) then  begin     if(Min + min2 > 59) then        VerificaMin:= VerificaMin+1;     TotalHoras :=  TotalHoras + VerificaMin;     Edit3.Text := IntToStr(TotalHoras) + �:� +inttostr(Mint);  end  else     Edit3.Text := inttostr(Hourt) + �:� +inttostr(Mint) ;end;//[/code:1:9d47d313a5]...

Carlosmielke · Answer

transforme as horas em minutos e some e da� fa�a a convers�o de minutos para horas ou seja, inteiro para stringcarlos mielke...

Spider · Answer

1� tem-se duas fun��es://*********** transforma hora em minutos *************//function HoraMinuto(valor : String):Integer;var minuto : integer;begin    minuto:=strtoint(copy(valor,1,pos(�:�,valor)-1))*60;    minuto:=minuto+strtoint(copy(valor,pos(�:�,valor)+1,2));    result := minuto;end;//*********** transforma minutos em horas *************//function MinutoHora(valor : integer):String;var hora,minuto : integer;begin    hora:=valor div 60;    minuto:=valor mod 60;    result := formatfloat(�00�,hora)+�:�+formatfloat(�00�,minuto);end;2� StringGrid + Button + Label;no OnClick do Buttonvar i,total:integer;begin   total:=0;   for i:=1 to StringGrid1.RowCount-1 do        total:=total+HoraMinuto(StringGrid.Cells[3,1]); //3 coluna das horas   label1.caption:=MinutoHora(Total);end;...

F�rum obtendo o total de horas #232979