Ler campo STRING e somar com uma data
27/11/2009
0
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
Curtir tópico
+ 0
Responder
Posts
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.
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
04/12/2009
Erivalton Oliveira
esta assim mesmo: 30/60/90/120, etc...
justamente como percorrer tal campo e separa-los
justamente como percorrer tal campo e separa-los
Responder
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.
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
Clique aqui para fazer login e interagir na Comunidade :)
