[delphi-br] Diferença entre horas

2007-11-20 Por tôpico Roberto 
pessoal, favor ajudar em como obter o tempo em minutos entre:

var
HoraFinal  : string;
HoraInicial : String;
ResultadoEmMinutos : Integer; 

Begin
   HoraFinal  := '17:05';
   HoraInicial := '13:56';

   //   Aqui, qual a função (elegante) para se obter o resultado de 189 minutos?
   //   é para um cálculo de jornadas trabalhadas.
   ResultadoEm Minutos := .

end;

// Obrigado

Roberto  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Diferença entre horas

2007-11-20 Por tôpico Daniel Bastos 
procure a função MinutesBetween da unit DateUtils

Abs
Daniel A. Bastos

Em 20/11/07, Roberto [EMAIL PROTECTED] escreveu:

   pessoal, favor ajudar em como obter o tempo em minutos entre:

 var
 HoraFinal : string;
 HoraInicial : String;
 ResultadoEmMinutos : Integer;

 Begin
 HoraFinal := '17:05';
 HoraInicial := '13:56';

 // Aqui, qual a função (elegante) para se obter o resultado de 189
 minutos?
 // é para um cálculo de jornadas trabalhadas.
 ResultadoEm Minutos := .

 end;

 // Obrigado

 Roberto

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Diferença entre horas

2007-11-20 Por tôpico Roberto 
Obrigado Daniel, já esta funcionando conforme sua dica.

Grande abraço

Roberto
  - Original Message - 
  From: Daniel Bastos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, November 20, 2007 9:27 PM
  Subject: Re: [delphi-br] Diferença entre horas


  procure a função MinutesBetween da unit DateUtils

  Abs
  Daniel A. Bastos

  Em 20/11/07, Roberto [EMAIL PROTECTED] escreveu:
  
   pessoal, favor ajudar em como obter o tempo em minutos entre:
  
   var
   HoraFinal : string;
   HoraInicial : String;
   ResultadoEmMinutos : Integer;
  
   Begin
   HoraFinal := '17:05';
   HoraInicial := '13:56';
  
   // Aqui, qual a função (elegante) para se obter o resultado de 189
   minutos?
   // é para um cálculo de jornadas trabalhadas.
   ResultadoEm Minutos := .
  
   end;
  
   // Obrigado
  
   Roberto
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.16.1/1140 - Release Date: 11/19/ 
19:05


[As partes desta mensagem que não continham texto foram removidas]