por favor, me ajudem- cálculo
Olá pessoal,
Tenho uma tabela chamada TB_Emprestimo com os seguintes campos:
[color=red:85b81f527b]CodigoDoEmprestimo
DataDoEmprestimo
PrazoDeEntrega (Ex.: 15)
DataDeDevolucao(DataDoEmprestimo + PrazoDeEntrega)
DiasDeAtrazo (Numero)
ValorDaMulta
TotalDaMulta[/color:85b81f527b]
Bem, eu preciso de duas coisas:
1º) Fazer com que o campo [color=red:85b81f527b]DiasDeAtrazo[/color:85b81f527b] calcule:
[color=blue:85b81f527b]data atual (do sistema)[/color:85b81f527b] [color=red:85b81f527b]- DataDeDevolucao[/color:85b81f527b]para me retornar quantos dias ou meses o cliente está atrasado.
2º) Baseado neste resultado, quero que o [color=red:85b81f527b]TotalDaMulta[/color:85b81f527b] seje igual a:
[color=red:85b81f527b]DiasDeAtrazo * ValorDaMulta[/color:85b81f527b]
Será q alguém poderia me ajudar?
Grato,
Ilano.
Favor postar o título em minúsculas
Moderador
Tenho uma tabela chamada TB_Emprestimo com os seguintes campos:
[color=red:85b81f527b]CodigoDoEmprestimo
DataDoEmprestimo
PrazoDeEntrega (Ex.: 15)
DataDeDevolucao(DataDoEmprestimo + PrazoDeEntrega)
DiasDeAtrazo (Numero)
ValorDaMulta
TotalDaMulta[/color:85b81f527b]
Bem, eu preciso de duas coisas:
1º) Fazer com que o campo [color=red:85b81f527b]DiasDeAtrazo[/color:85b81f527b] calcule:
[color=blue:85b81f527b]data atual (do sistema)[/color:85b81f527b] [color=red:85b81f527b]- DataDeDevolucao[/color:85b81f527b]para me retornar quantos dias ou meses o cliente está atrasado.
2º) Baseado neste resultado, quero que o [color=red:85b81f527b]TotalDaMulta[/color:85b81f527b] seje igual a:
[color=red:85b81f527b]DiasDeAtrazo * ValorDaMulta[/color:85b81f527b]
Será q alguém poderia me ajudar?
Grato,
Ilano.
Favor postar o título em minúsculas
Moderador
Ilanocf
Curtidas 0
Respostas
Anonymous
04/04/2003
experimente usar a funçao abaixo para obter o dia de atraso
//Esta funcao retorna a diferenca entre duas datas
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
Espero ter ajudado
Edi
edich@ig.com.br
//Esta funcao retorna a diferenca entre duas datas
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
Espero ter ajudado
Edi
edich@ig.com.br
GOSTEI 0
Datafron
04/04/2003
Seja objetivo no título
regra de conduta 4
regra de conduta 4
GOSTEI 0
Datafron
04/04/2003
Seja objetivo no título
regra de conduta 4
correção:
regra de conduta 3
GOSTEI 0
Ilanocf
04/04/2003
Olá pessoal,
Primeiro gostria de agradecer a atenção de vcs.
Emerson.EN, estou utilizando Access.
Edi Carlos, bem, na verdade eu gostaria de algo mais simples, pois a diferença da data do empréstimo e data de devolução já fiz, só preciso agora é saber quantos dias o cliente está atrazado para em seguida saber o valor total da multa.
Mais uma vez grato pela atenção de vcs,
Ilano.
Primeiro gostria de agradecer a atenção de vcs.
Emerson.EN, estou utilizando Access.
Edi Carlos, bem, na verdade eu gostaria de algo mais simples, pois a diferença da data do empréstimo e data de devolução já fiz, só preciso agora é saber quantos dias o cliente está atrazado para em seguida saber o valor total da multa.
Mais uma vez grato pela atenção de vcs,
Ilano.
GOSTEI 0