PUT´s, porque vc não falou isso antes de eu responder ???????? kkkkkkkkkkkkkkkkkkkkkkkkk Valeu Rubem................
Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -------------------------------------------------------------------------- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0rc2 Intl. (Rev. 8941) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 53a) - 2008.07.07 ------------------------------------------------------------------------------------------- From: Rubem Nascimento da Rocha Sent: Friday, July 18, 2008 3:58 PM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] obter milesimos de segundos de tempo inicial e final... Se vc usa Delphi 6 ou maior, use a função MilliSecondsBetween() da unit DateUtils e não reinvente a roda! Boa sorte. Sds. ________________________________ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 18 Jul 2008 18:55:48 +0000 Subject: [delphi-br] obter milesimos de segundos de tempo inicial e final... Amigos, Preciso da ajuda de voces, pois nãos sei se fiz certo a parada abaixo. Pego uma ... var dia, mes, ano, horas, minutos, segundos, DecSegundos, segundos_ant, segundos_final, milisegundos, milisegundos_ant, milisegundos_final: Word; DataAtu,DataAnt,Data : TDateTime; ... // pego os segundos e milesimos de segundos e jogo numa variável. DecodeDateTime(Now, ano, mes, dia, horas, minutos, segundos, milisegundos); // guardo os segundo e milisegundos em variável auxiliar milisegundos_ant := milisegundos; segundos_ant := segundos; ... // segudos depois, pego novamente os segundos e milesimos de segundos DecodeDateTime(Now, ano, mes, dia, horas, minutos, segundos, milisegundos); // faço esta bagunça abaixo, para pegar a diferença // entre os milisegundos atuais e o anterior if milisegundos> milisegundos_ant then milisegundos_final := (milisegundos - milisegundos_ant) else milisegundos_final := (milisegundos_ant - milisegundos); milisegundos_ant := milisegundos; // mesma coisa faço para pegar a diferença // entre os segundos atuais e o anterior if segundos> segundos_ant then segundos_final := (segundos - segundos_ant) else segundos_final := (segundos_ant - segundos); segundos_ant := segundos; ... A pergunta é... será que isso tá certo? Não tem forma melhor de fazer? Quem puder me dá (opsssssss) uma ajuda, eu agradeço! um abraço, William Brum BH - Minas __________________________________________________________ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]