27/11/2009

Ler campo STRING e somar com uma data

Boa meu povo, tudo bem com vcs!??
Bom surgiu mais uma duvida para nos resolvermos... tenho uma tabela de condicoes de pagamento que guarda um campo tipo string com conteudo igual a: 30/45/60. bom gostaria entao na hora de um fechamento de venda informar esse campo e ler somente os valores dai soma-los a uma data para formar as parcelas da venda...
ex:
data: 10/10/2009
venda    parcela    pagamento
0001      01/03      10/11/2009
0001      02/03      25/11/2009
0001      03/03      10/12/2009

alguma ideia????         

Erivalton Oliveira

Respostas

02/12/2009

Bruno Batista

Boa tarde,

Como que é armazenado os dias que deseja adicionar, está tudo em uma variável separando por / (barra).
Caso esteja tem percorrer e descobrir o dia e depois é só converter a quantidade de dias para inteiro e somar com a data.

Atenciosamente,

Bruno Moreira Batista.
Responder Citar

04/12/2009

Erivalton Oliveira

esta assim mesmo: 30/60/90/120, etc...
justamente como percorrer tal campo e separa-los
Responder Citar

05/12/2009

Thiago Silva

oi santos..   vc pode fazer um while, percorrer caracter a carater usando um contador e uma auxiliar para identificar o caracter, quando encontrar uma barra, usar a posição anterior par copiar o valor inteiro;   exemplo:   procedure TFormPrincipal.verificaCond;
var valor, caracAtual, caracGravado : String;
    cont : Integer;
begin
  valor := '30/60/90';
  cont := 1;
  caracAtual := '';
  caracGravado := '';
  while (cont <= Length(valor)) do
    begin
      if (Copy(valor, cont, 1) = '/') then
        begin
          ShowMessage(caracGravado);
          caracGravado := '';
        end
          else
            begin
              caracGravado := caracGravado + Copy(valor, cont, 1) ;
            end;
      cont := cont + 1;
    end;
  ShowMessage(caracGravado);
end;   Nesta procedure usei showmessagem só para mostrar os valores na tela, mas o ideal é vc fazer dela uma função, passando o valor por parametro e retornando estes valores inteiros;   Espero ter ajudado; Sucesso.    
Responder Citar