Fórum por favor, me ajudem- cálculo #152055
04/04/2003
0
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
Curtir tópico
+ 0Posts
04/04/2003
Anonymous
//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
04/04/2003
Datafron
regra de conduta 4
Gostei + 0
04/04/2003
Datafron
correção:
regra de conduta 3
Gostei + 0
04/04/2003
Ilanocf
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
Clique aqui para fazer login e interagir na Comunidade :)