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????
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
Curtidas 0
Respostas
Bruno Batista
27/11/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.
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.
GOSTEI 0
Erivalton Oliveira
27/11/2009
esta assim mesmo: 30/60/90/120, etc...
justamente como percorrer tal campo e separa-los
justamente como percorrer tal campo e separa-los
GOSTEI 0
Thiago Silva
27/11/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.
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.
GOSTEI 0