Monday, November 7, 2011

gratitude day 6 and 7


Sunday November 6th, I am grateful for..

1. Prayers, and unexpected answers
2. Quotes like this one...
"God loves us, so He makes us the gift of suffering. Through suffering, we release our hold on the toys of this world, and know our true good lies in another world. We're like blocks of stone, out of which the sculptor carves the forms of men. The blows of his chisel, which hurt us so much, are what make us perfect. The suffering in this world is not the failure of God's love for us; it is that love in action. For believe me, this world that seems to us so substantial is no more than the shadowlands. Real life has not begun yet." ("Shadowlands," p. 1) C. S. Lewis

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
-----------------------------
 
and

2. The Symphony Bar I'm currently enjoying. I needed you.


No comments:

Post a Comment