Functions

Function CalculateAge(Date1, Date2)
   bornDate = CDate(Date1)
   futureDate = CDate(Date2)
   
    if(Month(futureDate) < Month(bornDate) OR Month(futureDate) = Month(bornDate) AND Day(futureDate) < Day(bornDate)) Then
    	age = Year(futureDate) - Year(bornDate) - 1
	else
		age = Year(futureDate) - Year(bornDate)
	end if
	
	CalculateAge = age
End Function

Function LineWrap(sString, iInterval)
	lFinalLen = Len(sString)
	Do Until lPos >= lFinalLen
		If iPosCounter = iInterval Then 
			iPosCounter = 0 
			
			For lBeginPos = lPos To 0 Step -1
				If Mid(sString, lBeginPos, 1) = Chr(32) Then Exit For
			Next 
			
			For lEndPos = lPos To lFinalLen
				If Mid(sString, lEndPos, 1) = Chr(32) Then Exit For
			Next 

			iWordLen = (lEndPos - 1) - (lBeginPos + 1)
			
			iWordPos = lPos - (lBeginPos + 1)
			
			dWrapThresh = iWordLen / 2
			If lEndPos > Len(sString) Then Exit Do
			If iWordPos >= dWrapThresh Then 
				sString = Left(sString, lEndPos) & "<br>" & Right(sString, lFinalLen - lEndPos)
			Else
				sString = Left(sString, lBeginPos) & "<br>" & Right(sString, lFinalLen - lBeginPos)
			End If
			lFinalLen = Len(sString)
		End If
		
		iPosCounter = iPosCounter + 1
		
		If lPos > 0 Then If Mid(sString, lPos, 2) = "<br>" Then iPosCounter = 0 
		lPos = lPos + 1
	Loop
	LineWrap = sString
End Function

Function PCase(sValue)
	iPos = 1
	Do While InStr(iPos, sValue, " ", 1) <> 0
		iSpace = InStr(iPos, sValue, " ", 1)
		sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
		sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
                      iSpace - iPos))
		iPos = iSpace + 1
	Loop

	sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
	sTemp = sTemp & LCase(Mid(sValue, iPos + 1))

	PCase = sTemp
End Function