Array
(
)

Ler campo STRING e somar com uma data

Erivalton Oliveira
   - 27 nov 2009

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????         

Bruno Batista
   - 02 dez 2009

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.

Erivalton Oliveira
   - 04 dez 2009

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

Thiago Silva
   - 05 dez 2009

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.