Array
(
)

Divisão2

Elinton
   - 07 ago 2004

Como faço para dividir dois edit, sendo um no formato time e outro integer.

Edit3 => 02:00 ( hora )
Edit7 => 2 ( inteiro )
Edit10 => resultado da divisão

uso deplhi 07 com programação com base pascal e não SQL.

A formula abaixo não deu certo:
try
Edit10.Text := TimeToStr(StrToTime(Edit3.Text) / StrToInt(Edit7.Text));
except
end;



Editado

Elinton,
Você poderia ter utilizado o mesmo tópico anterior - [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=49742]Divisão[/url], para dar continuidade na busca de soluções para o seu problema.
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.

Sandra/Moderação


Carlosrm
   - 07 ago 2004

Elinton.

Experimente assim (eu testei e funcionou...):

edit10.text := floattostr(strtotime(edit3.text) / strtoint(edit7.text));

carlosrm


Tpoeta
   - 31 mai 2005

Estou com um problema super parecido, estou fazendo um cálculo entre dois tempos diferentes e mostrando o resultando em um label, por exemplo:

label1 = 00:05:12

meu problema é que preciso saber a média de ciclos por hora que o programa está fazendo e iria utilizar a seguinte solução:

dividir 00:05:12 de 3600 e mostrar este resultado em um outro label, mas não estou conseguindo fazer isso.

Será que a melhor solução seria converter este tempo em segundos antes de fazer a divisão? Como faço para capturar as partes deste tempo para fazer essa conversão?

Obirgado.


Marco Salles
   - 31 mai 2005


Citação:
Elinton.

Experimente assim (eu testei e funcionou...):

edit10.text := floattostr(strtotime(edit3.text) / strtoint(edit7.text));


si não , mas parece que ele quer a resposta tb em formato de Horas e não em Numero de ponto Fltuante Convertido em String

Então sugiro como uma primeira alternativa ;

#Código

edit10.text := Timetostr(strtotime(edit3.text) / strtoint(edit7.text));