FUNÇÃO RUMOS VB Script.txt

'FUNCAO PARA EXTRAIR AS DIREÇÕES RELATIVAS A NORTE DO AZIMUTE
'RUMO = Dir
'LINGUAGEM VB SCRIPT
'APLICAR NO FIELD CALCULATOR NO CAMPO RUMO DEPOIS DE OBTER OS AZIMUTES
'Atualização a partir do proposto em:

'Oliveira, D.B.; Moreno, R.S.; Miranda, D.J.; Ribeiro, C.S.; Seoane, J.C.S. 2009. Elaboração de um
'mapa de lineamento estrutural e densidade de lineamento através de imagem SRTM, em área ao
'norte do Rio Doce, ES. In: Simp. Bras. Sensor. Remoto (SBSR), 14, Natal, Anais... p. 4157-4163.

'Aplicado em:
'Dos-Santos, L.F.; Antonelli, T. 2015. Contribuição à avaliação de risco geológico a partir de técnicas
'de Sensoriamento Remoto em análise de imagens SRTM, ASTER-GDEM e Landsat aplicadas aos municípios
'de Embu das Artes e Itapecerica da Serra, SP. In: Congresso Bras. Geol. Eng. e Amb. (CBGE), 25, 
'Bento Gonçalves, Anais....

Dim Dir
If [Azimute] <= 20 Then
Dir = "NNE"

elseif [Azimute] <= 70 Then
Dir = "NE"

elseif [Azimute] <= 90 Then
Dir = "E-W"

elseif [Azimute] <= 110 Then
Dir = "E-W"

elseif [Azimute] <= 160 Then
Dir = "NW"

elseif [Azimute] <= 180 Then
Dir = "NNW"

elseif [Azimute] <= 200 Then
Dir = "NNE"

elseif [Azimute] <= 250 Then
Dir = "NE"

elseif [Azimute] <= 270 Then
Dir = "E-W"

elseif [Azimute] <= 290 Then
Dir = "E-W"

elseif [Azimute] <= 340 Then
Dir = "NW"

else
Dir = "NNW"
end if