CDistanciaEquivalente.cls 1.32 KB
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CDistanciaEquivalente"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Classe para calcular a nova distância do ramal, por regra de 3, após o trecho ser movido

' Calcula a nova distância do início de um ramal de água após mover a rede
'
' distanciaRamalDepoisMovido - retorna a nova distância do ramal em relação ao início da linha
' compLinhaAntes - comprimento da linha depois de movida
' compLinhaDepois - comprimento inicial da linha antes de mover
' distanciaRamalAntes - distância do ramal para o início da linha
'
Public Function distanciaRamalDepoisMovido(compLinhaAntes As Double, compLinhaDepois As Double, distanciaRamalAntes As Double) As Double
    On Error GoTo Trata_Erro:
    distanciaRamalDepoisMovido = compLinhaAntes * distanciaRamalAntes / compLinhaDepois
    Exit Function

Trata_Erro:
   If Err.Number = 0 Or Err.Number = 20 Then
       Resume Next
   Else
      ErroUsuario.Registra "CDistanciaEquivalente", "distanciaRamalDepoisMovido", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
   End If
End Function