quarta-feira, 24 de maio de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Função para cálculo de depreciação de bem
Autor:  Marcelo Santos do Nascimento (marcelosn@ig.com.br)
Publicado:  29/05/2005
Visitas: 5144
 
De: 'Marcelosn - IG - SP' Enviado: Thu May 5 9:34
Para: Prioridade: Normal
Assunto: Função para depreciação de Bem Tipo: Embeded HTML/Text

Mais uma dica pessoal:

Função para depreciação de Bem


Function Depreciacao_SLN()
Dim Fmt, CustoInicial, ValorDoSalvamento, VidaMensal, VidaÚtil, DeprP
Const ANOMESES = 12 ' Número de meses em um ano.
Fmt = "###,##0.00" ' Define o formato monetário.
CustoInicial = InputBox("Qual é o custo inicial do bem?")
ValorDoSalvamento = InputBox("Qual é o valor do bem ao fim da sua vida útil?")
VidaMensal = InputBox("Qual é a vida útil do bem em meses?")
Do While VidaMensal < ANOMESES ' Certifica-se de que o período é >= 1 ano.
MsgBox "A vida do bem deve ser de um ano ou mais."

VidaMensal = InputBox("Qual é a vida útil do bem em meses?")
Loop
VidaÚtil = VidaMensal / ANOMESES ' Converte meses em anos.
If VidaÚtil <> Int(VidaMensal / ANOMESES) Then
VidaÚtil = Int(VidaÚtil + 1) ' Arredonda para o ano mais próximo.
End If
DeprP = SLN(CustoInicial, ValorDoSalvamento, VidaÚtil)
MsgBox "A depreciação é " & Format(DeprP, Fmt) & " por ano."
End Function

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco