Sub UVTOURS

Sub UVTOURS - End If If H > 5 Then ECH = H - 5 Else ECH...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Sub UVTOURS() 'Eric Schneck Section 1 Dim P, H, EHP, SBP, LBP As Double P = Range("D6").Value H = Range("D8").Value EHP = Range("E33").Value SBP = Range("E30").Value LBP = Range("E31").Value If P > 35 Then If P > 55 Then If P > 70 Then If P > 90 Then NS = 0 NL = 2 SE = NS * SBP LE = NL * LBP Else NS = 1 NL = 1 SE = NS * SBP LE = NL * LBP End If Else NS = 2 NL = 0 SE = NS * SBP LE = NL * LBP End If Else NS = 0 NL = 1 SE = NS * SBP LE = NL * LBP End If Else NS = 1 NL = 0 SE = NS * SBP
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
LE = NL * LBP
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: End If If H > 5 Then ECH = H - 5 Else ECH = 0 End If LEHC = ECH * EHP * LE SEHC = ECH * EHP * SE LTP = LE + LEHC STP = SE + SEHC TP = STP + LTP Range("C16").Value = NS Range("E16").Value = NL Range("C18").Value = SE Range("E18").Value = LE Range("D12").Value = ECH Range("C20").Value = SEHC Range("E20").Value = LEHC Range("C22").Value = STP Range("E22").Value = LTP Range("D24").Value = TP End Sub...
View Full Document

This document was uploaded on 03/23/2011.

Page1 / 2

Sub UVTOURS - End If If H > 5 Then ECH = H - 5 Else ECH...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online