StripNatGasSummer

Description

Displays a Summer Natural Gas Strip (April to October) for the year specified.

Formula

StripNatGasSummer(nvYear)=begin

   retval = NG#.YEAR

   divisor = 7

   if nvYear == vchart(NG#.YEAR[-1]) then begin

      cMonth = vchart(NG#.MONTH[-1])

      if cMonth >= 4 AND cMonth <= 10 then begin

         divisor = 10 - cMonth

         if divisor == 0 then divisor = 1

      end

      if cMonth > 10 then divisor = 1

   end

   if nvYear == 2003 then retval = Scale(Sum(NGJ3.recent,
         NGK3.recent,NGM3.recent,NGN3.recent,
         NGQ3.recent,NGU3.recent,NGV3.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2004 then retval = Scale(Sum(NGJ4.recent,
         NGK4.recent,NGM4.recent,NGN4.recent,
         NGQ4.recent,NGU4.recent,NGV4.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2005 then retval = Scale(Sum(NGJ5.recent,
         NGK5.recent,NGM5.recent,NGN5.recent,
         NGQ5.recent,NGU5.recent,NGV5.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2006 then retval = Scale(Sum(NGJ6.recent,
         NGK6.recent,NGM6.recent,NGN6.recent,
         NGQ6.recent,NGU6.recent,NGV6.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2007 then retval = Scale(Sum(NGJ7.recent,
         NGK7.recent,NGM7.recent,NGN7.recent,
         NGQ7.recent,NGU7.recent,NGV7.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2008 then retval = Scale(Sum(NGJ8.recent,
         NGK8.recent,NGM8.recent,NGN8.recent,
         NGQ8.recent,NGU8.recent,NGV8.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2009 then retval = Scale(Sum(NGJ9.recent,
         NGK9.recent,NGM9.recent,NGN9.recent,
         NGQ9.recent,NGU9.recent,NGV9.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2010 then retval = Scale(Sum(NGJ0.recent,
         NGK0.recent,NGM0.recent,NGN0.recent,
         NGQ0.recent,NGU0.recent,NGV0.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2011 then retval = Scale(Sum(NGJ1.recent,
         NGK1.recent,NGM1.recent,NGN1.recent,
         NGQ1.recent,NGU1.recent,NGV1.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2012 then retval = Scale(Sum(NGJ2.recent,
         NGK2.recent,NGM2.recent,NGN2.recent,
         NGQ2.recent,NGU2.recent,NGV2.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2013 then retval = Scale(Sum(NGJ3.recent,
         NGK3.recent,NGM3.recent,NGN3.recent,
         NGQ3.recent,NGU3.recent,NGV3.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2014 then retval = Scale(Sum(NGJ4.recent,
         NGK4.recent,NGM4.recent,NGN4.recent,
         NGQ4.recent,NGU4.recent,NGV4.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2015 then retval = Scale(Sum(NGJ5.recent,
         NGK5.recent,NGM5.recent,NGN5.recent,
         NGQ5.recent,NGU5.recent,NGV5.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2016 then retval = Scale(Sum(NGJ6.recent,
         NGK6.recent,NGM6.recent,NGN6.recent,
         NGQ6.recent,NGU6.recent,NGV6.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2017 then retval = Scale(Sum(NGJ7.recent,
         NGK7.recent,NGM7.recent,NGN7.recent,
         NGQ7.recent,NGU7.recent,NGV7.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2018 then retval = Scale(Sum(NGJ8.recent,
         NGK8.recent,NGM8.recent,NGN8.recent,
         NGQ8.recent,NGU8.recent,NGV8.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2019 then retval = Scale(Sum(NGJ9.recent,
         NGK9.recent,NGM9.recent,NGN9.recent,
         NGQ9.recent,NGU9.recent,NGV9.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2020 then retval = Scale(Sum(NGJ0.recent,
         NGK0.recent,NGM0.recent,NGN0.recent,
         NGQ0.recent,NGU0.recent,NGV0.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2021 then retval = Scale(Sum(NGJ1.recent,
         NGK1.recent,NGM1.recent,NGN1.recent,
         NGQ1.recent,NGU1.recent,NGV1.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2022 then retval = Scale(Sum(NGJ2.recent,
         NGK2.recent,NGM2.recent,NGN2.recent,
         NGQ2.recent,NGU2.recent,NGV2.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2023 then retval = Scale(Sum(NGJ3.recent,
         NGK3.recent,NGM3.recent,NGN3.recent,
         NGQ3.recent,NGU3.recent,NGV3.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2024 then retval = Scale(Sum(NGJ4.recent,
         NGK4.recent,NGM4.recent,NGN4.recent,
         NGQ4.recent,NGU4.recent,NGV4.recent)/divisor,
         STRIP_SCALE)

   if nvYear == 2025 then retval = Scale(Sum(NGJ5.recent,
         NGK5.recent,NGM5.recent,NGN5.recent,
         NGQ5.recent,NGU5.recent,NGV5.recent)/divisor,
         STRIP_SCALE)

   if retval == 0 then retval = nonum

   retval

end

Parameters

year

Four digit year (i.e., 2008) for which you want a Summer Strip.

Return Value

A Summer Strip.

Examples

StripNatGasSummer(2008)

Displays a strip of 2008 Natural Gas summer contracts.

Comments