The Weird and The Wonderful

"Then a miracle occurs"

Dim key As String
key= "N"
key= "linatipedi=" + "'" + key+ "'"
Dim rR As DataRow() = t.Select(key)
If rR.Length() = 0 Then
    i = 0
Else
    Try
        For Each r In rR
            i += 1
        Next r
    Catch
        If i = 0 Then
            Return True
        Else
            Return False
        End If
    End Try
End If
If i = 0 Then
    Return True
Else
    Return False
End If

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;
    }
  }
}