The Tithe - A Stewardship Challenge

[ Close This Window ] \n"); print ("\n"); print ("\n"); print ("\n"); } function PrintFirstInstructions() { print ("\n

This is a form to help you determine your gift.\n"); print ("No financial information is stored on this computer.\n"); print ("I have included a link to the source code so you can examine it yourself if you wish.

\n"); print ("

Determine your annual income and enter that amount in the form below.\n"); print ("When you press the submit button you will see a table that shows what\n"); print ("your giving may be based on various percentages.

\n"); } function PrintSecondInstructions() { print ("\n

Find the figure closest to what you are giving now.\n"); print ("If you are giving less than 3% right now, try to increase your giving to 3% next year.\n"); print ("Try increasing your giving by a percentage point each year until you reach\n"); print ("the biblical teaching of the tithe.

\n"); } function Finalize() { print ("\n

Copyright © 2001-2002\n"); print ("by Alan P. Swartz
Release "); ReleaseDate(); print ("\n
Released under the terms of the "); print ("GNU Public License.\n"); print ("
See source code.

\n\n"); } function PrintTable($Monthly,$Weekly) { /* Print Table of Proportional Giving */ print ("\n\n"); print ("\n"); print ("\n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print ("\n"); print ("\n"); print ("\n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print ("\n"); print ("\n"); print ("\n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print (" \n"); print ("\n"); print ("

	2%	3%	4%	5%	6%	7%	8%	9%	10%
Weekly	"); $result = $Weekly * .02 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .03 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .04 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .05 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .06 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .07 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .08 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .09 ; print number_format($result,"2",".",","); print ("	"); $result = $Weekly * .10 ; print number_format($result,"2",".",","); print ("
Monthly	"); $result = $Monthly * .02 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .03 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .04 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .05 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .06 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .07 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .08 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .09 ; print number_format($result,"2",".",","); print ("	"); $result = $Monthly * .10 ; print number_format($result,"2",".",","); print ("

\n"); print ("
\n"); } function PrintForm() { print ("\n\n"); } /* Main Program */ Initialize(); if ( isset( $amount ) ) { $income8 = trim($amount); //get rid of extra spaces $income7 = explode("$",$income8); //get rid of dollar signs $income6 = implode("",$income7); $income5 = trim($income6); $income4 = explode(",",$income5); //get rid of commas $income3 = implode("",$income4); $amount = $income3; print ("\n\n

You entered an amount of \$ "); print number_format($amount,"2",".",","); print ("\n
If you decide to tithe... \n"); $Monthly = $amount / 12 ; $Weekly = $amount /52 ; print ("
Your suggested monthly gift is \$ "); $MonthlyGift = $Monthly / 10 ; print number_format($MonthlyGift,"2",".",","); print ("\n
Your suggested weekly gift is \$ "); $WeeklyGift = $Weekly / 10 ; print number_format($WeeklyGift,"2",".",","); print ("\n"); PrintTable($Monthly,$Weekly); PrintSecondInstructions(); } else { PrintFirstInstructions(); } PrintForm(); Finalize(); ?>