Sunday November 6th, I am grateful for..
2. Quotes like this one...
3. Church and inspired words
"Don't give up, don't give in, be stronger. We all have to overcome these weaknesses, we all have to overcome this world. We can't overcome the natural man without miracles, without help-Ask flat out for miracles. He is alive and He does live, He grants us miracles. We NEED the help of the Savior."
Day 7 I am grateful for...
1. Information Systems 201 TA's. Without you I would fail my flowcharting project. Thank you. Yes, I wrote this VBA code in Excel (I feel pretty darn cool)!!
---------------------------
Option Explicit
Sub UtahValleyTours()
'Bree Woolstenhulme Section 6'
Dim P, NS, NL As Integer
Dim H, SBP, LBP, EHP, ECH, SE, LE, SEHC, LEHC, STP, LTP, TP As Double
P = Range("D6").Value
H = Range("D8").Value
SBP = Range("E30").Value
LBP = Range("E31").Value
EHP = Range("E33").Value
If H > 5 Then
If H > 9 Then
ECH = 4
Else
ECH = H - 5
End If
Else
ECH = 0
End If
If P > 35 Then
If P > 55 Then
If P > 70 Then
If P > 90 Then
NS = 0
NL = 2
Else
NS = 1
NL = 1
End If
Else
NS = 2
NL = 0
End If
Else
NS = 0
NL = 1
End If
Else
NS = 1
NL = 0
End If
SE = NS * SBP
LE = NL * LBP
SEHC = ECH * EHP * SBP
LEHC = ECH * EHP * LBP
STP = SE + SEHC
LTP = LE + LEHC
TP = STP + LTP
Range("D12").Value = ECH
Range("C16").Value = NS
Range("E16").Value = NL
Range("C18").Value = SE
Range("E18").Value = LE
Range("C20").Value = SEHC
Range("E20").Value = LEHC
Range("C22").Value = STP
Range("E22").Value = LTP
Range("D24").Value = TP
End Sub
-----------------------------
---------------------------
Option Explicit
Sub UtahValleyTours()
'Bree Woolstenhulme Section 6'
Dim P, NS, NL As Integer
Dim H, SBP, LBP, EHP, ECH, SE, LE, SEHC, LEHC, STP, LTP, TP As Double
P = Range("D6").Value
H = Range("D8").Value
SBP = Range("E30").Value
LBP = Range("E31").Value
EHP = Range("E33").Value
If H > 5 Then
If H > 9 Then
ECH = 4
Else
ECH = H - 5
End If
Else
ECH = 0
End If
If P > 35 Then
If P > 55 Then
If P > 70 Then
If P > 90 Then
NS = 0
NL = 2
Else
NS = 1
NL = 1
End If
Else
NS = 2
NL = 0
End If
Else
NS = 0
NL = 1
End If
Else
NS = 1
NL = 0
End If
SE = NS * SBP
LE = NL * LBP
SEHC = ECH * EHP * SBP
LEHC = ECH * EHP * LBP
STP = SE + SEHC
LTP = LE + LEHC
TP = STP + LTP
Range("D12").Value = ECH
Range("C16").Value = NS
Range("E16").Value = NL
Range("C18").Value = SE
Range("E18").Value = LE
Range("C20").Value = SEHC
Range("E20").Value = LEHC
Range("C22").Value = STP
Range("E22").Value = LTP
Range("D24").Value = TP
End Sub
-----------------------------
and
2. The Symphony Bar I'm currently enjoying. I needed you.
No comments:
Post a Comment