Subtrair minutos de uma determinada hora

Question

Ol�,Como fa�o para subtrair minutos de uma determinada hora?Luiz...

Osocram · Answer

IncMinute(myDate, -40);[quote:311a29ad9f=�L_CARLOS�]Ol�,Como fa�o para subtrair minutos de uma determinada hora?Luiz[/quote:311a29ad9f]...

Danielrsanches · Answer

se precisar �extrair� os minutos de determinada hora:minuteof(Date);declare DateUtils na cl�usula uses ...abra�os !!!...

L_carlos · Answer

vlw osocram, sua dica funcionou.

Agora como fa�o para subtrair minutos por exempo qdo a hora for meia noite, como por exemplo subtrair 40 minutos de 00:10 (meia noite e 10 minutos), pois usando a sua dica o resultado � 00:30 (esse resultado errado s� ocorre se tento diminuir minutos qdo a hora � meia noite).

Luiz

Marco Salles · Answer

Tente ... [code:1:623d22385a]C�digo: function SubtrairMinutos(Hora:TTime;M:word):TTime; var mm:real; begin if M <= 60 tHEN begin mm:=M; mm:=(1/24)*(M/60); if mm>Hora Then   Hora:= 1 - (mm - Hora) else   Hora = Hora - mm result:=Hora; end else begin Showmesage(�Minutos Fora da especifica��o�); Gera Erro etc... end; [/code:1:623d22385a]ps: Da para pensar em fazer para faixa de valoes minutos maiores que 60 segundos ps � sempre bom e dar preferencia para fun~��es nativas , o problema � que devemos conhecer suas limita��es e nen sempre elas fazemm exatamente o que queremos_________________< �N�o esque�a de deixar uma mensagem informando se as dicas deram certo, para que outros usu�rios com as mesmas d�vidas saibam como resolve-las� Se DEUS N�o Existe Ent�o Vale Tudo...

L_carlos · Answer

Ol� Marco, desculpe a ignorancia, mas como uso a sua fun��o por exemplo para subtrair 30 minutos de uma hora que est� informada em um maskedit?Luiz...

Marco Salles · Answer

[quote:79dc934172]Ol� Marco, desculpe a ignorancia, mas como uso a sua fun��o por exemplo para subtrair 30 minutos de uma hora que est� informada em um maskedit? [/quote:79dc934172]� simples ..[code:1:79dc934172]varHora:TTime;begintry  Hora:=StrtoTime(SeuMaskEdit.Text);  Hora:=SubtrairMinutos(Hora,30);  showmessage(Timetostr(Hora));except  Showmessage(�Erro�);end;end;[/code:1:79dc934172]...

L_carlos · Answer

Vlw Marco. Sua fun��o resolveu o problema de subtrair minutos qdo a hora � meia noite.Luiz...

Marco Salles · Answer

L_Carlos navegando por ai , achei algo interressante e mais simples que
pode ser estendido com mais facilidades para o Subtrair Minutos com valores
maiores do que 60

Acho que funciona Ate Minutos = 1440 (teste ai...)

Adaptei para a sua necessidade

function NovaSubtrairMinutos(Hora:TTime;M:word):TTime;
begin
  result:=(StrToTime(�23:59:59�) - M/1440 + StrToTime(�00:00:01�) + Hora)
end;

Utiliza��o

procedure TForm1.Button1Click(Sender: TObject);
var
Hora,HoraAux:TTime;
begin 
try
  HoraAux:=StrtoTime(MaskEdit1.Text);
  Hora:=NovaSubtrairMinutos(HoraAux,strtoint(edit1.text));
  form1.caption:=Timetostr(Hora);
except
  Showmessage(�Erro�);
end;

T�pico Original

http://www.activedelphi.com.br/forum/viewtopic.php?t=26814&highlight=horas&sid=f1e2f21f7dd389eceaf9d814b348daaa

hummmmmmmm... Interressante

F�rum Subtrair minutos de uma determinada hora #372933