[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 * 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
Re: [delphi-br] Rotina incremento
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
Re: [delphi-br] Rotina incremento
Leandro, estou utilizando a versão 5.0 Tem esta função? obrigada! Leandro [EMAIL PROTECTED] escreveu: Se voce usa Delphi 6 ou superior, de uma olhada nas funcoes da unit DateUtils (IncMinute, IncHour, etc).; Leandro - Original Message - From: Patricia Santana To: 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 Links do Yahoo! Grupos - 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 * 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