A few weeks ago, Greg moved one step closer to becoming "the man" and took a management job at a small software development company. Things were a bit of a mess (to put it nicely) and Greg thought a good place to start would be to get an idea of his subordinates' skill levels. He asked the team submit what they felt were the latest and greatest code they've written and thought he'd share with us what was the best of their best: the code had proper casing, it was indented, it not only had a "serious" sounding name (unlike eyeEyeCaptain()) but actually did what the function said it would, and only had a single case of undocumented and out-of-place mystery business logic, and so on, ... 

Public Function GetNestingLevel(objNode As Node)
  
  If Not objNode.Parent Is Nothing Then
    GetNestingLevel = 0
  ElseIf objNode.Parent.Parent Is Nothing Then
    GetNestingLevel = 1
  ElseIf objNode.Parent.Parent.Parent Is Nothing Then
    GetNestingLevel = 2
  ElseIf objNode.Parent.Parent.Parent.Parent Is Nothing Then
    GetNestingLevel = 3
  ElseIf objNode.Parent.Parent.Parent.Parent.Parent Is Nothing Then
    If objNode.NodeId = 3382 Then
      GetNestingLevel = 3
    Else
      GetNestingLevel = 4
    End If
  ElseIf objNode.Parent.Parent.Parent.Parent.Parent. _
                 Parent Is Nothing Then
    GetNestingLevel = 5
  ElseIf objNode.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent Is Nothing Then
    GetNestingLevel = 6
  ' -- snip -- '
  ElseIf objNode.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent. _
                 Parent.Parent.Parent.Parent.Parent.Parent.Parent Is Nothing Then
    GetNestingLevel = 59
  Else
    GetNestingLevel = 60
  End If
 
End Function
[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!