The Weird and The Wonderful

public static int GetAge(string birthDate)
{
  DateTime birth;

  try
  {
    birth = DateTime.Parse(birthDate);
  }
  catch (Exception ex)
  {
    throw new ApplicationException("Unable to read birth date.", ex);
  }

  if (DateTime.Today.Month < birth.Month)  //it is before your birthday
  {
    return DateTime.Today.Year - birth.Year - 1;
  }
  else if (DateTime.Today.Month > birth.Month)  //it is after your birthday
  {
    return DateTime.Today.Year - birth.Year;
  }
  else // DateTime.Today.Month == birth.Month  //we don't know yet
  {
    if (DateTime.Today.Day < birth.Day)  //it is before your birthday
    {
      return DateTime.Today.Year - birth.Year - 1;
    }
    else //it is your birthday, or it is after your birthday
    {
      return DateTime.Today.Year - birth.Year;
    }
  }
}

protected void processException(Throwable e)
        throws ParqProsaException
    {
        try
        {
            throw e;
        }
        catch(SQLException se)
        {
            ParqSQLSadException pre = new ParqSQLSadException(se);
            throw new ParqErrorContainerException(pre, " ... ");
        }
        catch(Throwable exx)
        {
            super.processException(exx);
        }
    }

'*********************************************************************
'*  FindCharacters
'*
'*  This subroutine finds and optionally replaces specific characters
'*    with another chjaracter.  It also returns the position(s) of
'*    specific characters not in the string.
'*********************************************************************

Public Sub FindCharacters(ByRef strData As String, _
                          ByVal strValidCharSet As String, _
                          ByVal strReplChar As String, _
                          ByRef strMsg As String)

Dim strWork As String
Dim strCH As String
Dim intLoop As Integer

strWork = ""
strMsg = ""

For intLoop = 0 To strData.Length - 1
  strCH = strData.Substring(intLoop, 1)

  If strValidCharSet.IndexOf(strCH) = -1 Then
    strWork = String.Concat(strWork, strReplChar)
    strMsg = String.Concat(strMsg, (intLoop + 1).ToString, ", ")
  Else
    strWork = String.Concat(strWork, strCH)
  End If
Next

If strMsg <> "" Then
  strMsg = strMsg.Substring(0, strMsg.Length - 2)
End If

strData = strWork

End Sub