'***************************
'This script will calculate
'your clean time in days when
'you enter you clean date and
'click OK
'Written By Dave Lareau
'For South Broward Area NA
'*****************************



option explicit
Dim usersname, CleanDate, AgeinDays , AgeinHours

wscript.echo "Would you like to know your Clean time in Days?" 

usersname = InputBox("Enter Your First Name Only, This is not to embarass you it's just So We Can Get To Know You Better:","South Broward NA","Addict")

wscript.echo "Hello " & usersname & " Are You Ready To Calculate Your Clean Time?"

	'Get the Addicts Clean Date
	CleanDate = InputBox("Enter Your Clean Date!","South Broward NA Clean Time Calculator")
	
	If CleanDate = "" Then 
		wscript.echo usersName & " Congratulations! You are a newcomer go get a white chip"
	End If

	'This line quits the application if the user doesn't put a date in the box
	 If CleanDate = "" then wscript.quit
	

	'Calculate The Addicts Clean Date
	AgeinDays = DateDiff ("d",CleanDate, Now)
	AgeinHours = DateDiff ("h",CleanDate, Now)
			
			If AgeinDays = 30 Then
			wscript.echo usersName & " Congratulations! You get an orange chip"
			ElseIf AgeinDays = 60 Then
			wscript.echo usersName & " Congratulations! You get a Green Chip"
			Elseif AgeinDays = 90 Then
			wscript.echo usersName & " Congratulations! You get a Red Chip"
	  		Elseif AgeinDays = 180 Then
			wscript.echo usersName & " Congratuations! 6 Months WOW! You get a blue chip"
			Elseif AgeinDays = 273 Then
			wscript.echo usersName & " Contratualtions! 9 Months! You're doing Great! You get a yellow chip"			
			Elseif AgeinDays = 365 Then
			wscript.echo usersName & " Congratulations! It's your 1st year clean, you get to pick up a medallion"
			
			End If
		
			
			If AgeinHours < 48 Then
			wscript.echo usersName & " You Just got clean huh? Well Then Make a meeting put the cotton in your ears and keep comming back"
				
			End If
		
		'Display the Results
		
		wscript.echo  usersName & " You Have " & AgeinDays & " Days Clean or  In hours You Have " & AgeinHours & " Hours Clean"
			
		

	'Display Web Page
	wscript.echo usersName & " Please vist our web site at http://www.SouthBrowardNA.org"