Wednesday, June 20, 2007

The Dangers of Letting me Code

Variable GiftArray05 = Floor(Block.[Record].[Record_gift1].[giftamount])
Variable GiftArray15 = Floor(1.5 * Block.[Record].[Record_gift1].[giftamount])
Variable GiftArray25 = Floor(2 * Block.[Record].[Record_gift1].[giftamount])

Variable GiftArray10 = IIF (((Variable.[GiftArray05] % 5) = 0), FormatCurrency(Variable.[GiftArray05]) , IIF (((Variable.[GiftArray05] + 1) % 5) = 0, FormatCurrency(Variable.[GiftArray05] + 1), IIF (((Variable.[GiftArray05] - 1) % 5) = 0, FormatCurrency(Variable.[GiftArray05] - 1), IIF (((Variable.[GiftArray05] + 2) % 5) = 0, FormatCurrency(Variable.[GiftArray05] + 2), IIF (((Variable.[GiftArray05] - 2) % 5) = 0, FormatCurrency(Variable.[GiftArray05] - 2), 0)))))

Variable GiftArray20 = IIF (((Variable.[GiftArray15] % 5) = 0), FormatCurrency(Variable.[GiftArray15]) , IIF (((Variable.[GiftArray15] + 1) % 5) = 0, FormatCurrency(Variable.[GiftArray15] + 1), IIF (((Variable.[GiftArray15] - 1) % 5) = 0, FormatCurrency(Variable.[GiftArray15] - 1), IIF (((Variable.[GiftArray15] + 2) % 5) = 0, FormatCurrency(Variable.[GiftArray15] + 2), IIF (((Variable.[GiftArray15] - 2) % 5) = 0, FormatCurrency(Variable.[GiftArray15] - 2), 0)))))

Variable GiftArray30 = IIF (((Variable.[GiftArray25] % 5) = 0), FormatCurrency(Variable.[GiftArray25]) , IIF (((Variable.[GiftArray25] + 1) % 5) = 0, FormatCurrency(Variable.[GiftArray25] + 1), IIF (((Variable.[GiftArray25] - 1) % 5) = 0, FormatCurrency(Variable.[GiftArray25] - 1), IIF (((Variable.[GiftArray25] + 2) % 5) = 0, FormatCurrency(Variable.[GiftArray25] + 2), IIF (((Variable.[GiftArray25] - 2) % 5) = 0, FormatCurrency(Variable.[GiftArray25] - 2), 0)))))

Variable GiftArray1 = Variable.[GiftArray10]
Variable GiftArray2 = IIF (Variable.[GiftArray10] = Variable.[GiftArray20], FormatCurrency(Variable.[GiftArray20] + 5), Variable.[GiftArray20])
Variable GiftArray3 = IIF (Variable.[GiftArray20] = Variable.[GiftArray30], FormatCurrency(Variable.[GiftArray30] + 5), Variable.[GiftArray30])