Se voce usa Delphi 6 ou superior, de uma olhada nas funcoes da unit
DateUtils (IncMinute, IncHour, etc).;
Leandro
----- Original Message -----
From: "Patricia Santana" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, December 08, 2005 8:25 AM
Subject: [delphi-br] Rotina incremento
Bom dia a todos!
Fiz a seguinte rotina no delphi :
for i := 0 to MemoAndamento.Lines.Count - 1 do
begin
Linha := MemoAndamento.Lines[i];
DataAux := Trim(copy(Linha, 1, 10));
HoraAux := Trim(copy(Linha,13,6));
HoraComp := Trim(copy(MemoAndamento.Lines[i+1],13,6));
if HoraAux = HoraComp then
begin
HoraAux := '';
HoraAux := (copy(Linha,13,6)+':'+'0'+inttostr(i));
end;
Data := StrToDateTime(DataAux +''+ HoraAux);
end;
Quando o a variável i > = 60, o programa mostra uma mensagem de erro
dizendo que ' 06/12/2005 17:060 ' não é uma data válida.
Então vou ter que verificar quando o i = 60 devo incrementar os minutos
e se os minutos = 60 devo incrmentar a hora....
Fiz uma rotina com este raciocínio, mas não está funcioando...
Alguém tem alguma rotina para fazer isso...
Muito obrigada pela atenção...
Patricia Santana
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
