need help (dates and lines

[Anonymous]

this is an old one from fb.net forums...

Code:

Function get_number_suffix( n As Integer ) As String

  Dim suf As String

    Select Case n Mod 100
    
      Case 11 to 13
        suf = "th"

      Case Else

        Select Case n Mod 10

          Case 0
            suf = "th"
            
          Case 1
            suf = "st"
            
          Case 2
            suf = "nd"
            
          Case 3
            suf = "rd"
            
          Case Else
            suf = "th"
            
        End Select
        
    End Select

  get_number_suffix = suf
  
End Function

written by me =)

[na_th_an]

not really, think of 11 to 19, they all have "th" at the end and 111 to 119 and 211 to 219...

Damn, I missed that

Stupid awkward language :lol:

[axipher]

I wonder if anyone would find a use for a number to roman numeral converter...

[Agamemnus]

http://www.flyingsoft.phatcode.net/files...mnumer.zip