Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic .NET - Числа, математика, финансы

Все примеры / Числа, математика, финансы

Пример добавления окончания к числу (англ.)

Автор: Неизвестно | добавлено: 05.03.2010, 19:34 | просмотров: 1201 (1+) | комментариев: 0 | рейтинг: *x0
Пример добавления окончаний к числу (только на английском языке).

Код

 Public Function GetOrdinal(ByVal Number As Integer) As String
 ' Accepts an integer, returns the ordinal suffix
 ' Handles special case three digit numbers ending
 ' with 11, 12 or 13 - ie, 111th, 112th, 113th, 211th, et al
 If CType(Number, String).Length > 2 Then
  Dim intEndNum As Integer = CType(CType(Number, String). _
   Substring(CType(Number, String).Length - 2, 2), Integer)
  If intEndNum >= 11 And intEndNum <= 13 Then
  Select Case intEndNum
   Case 11, 12, 13
   Return "th"
  End Select
  End If
 End If
 If Number >= 21 Then
  ' Handles 21st, 22nd, 23rd, et al
  Select Case CType(Number.ToString.Substring( _
   Number.ToString.Length - 1, 1), Integer)
  Case 1
   Return "st"
  Case 2
   Return "nd"
  Case 3
   Return "rd"
  Case 0, 4 To 9
   Return "th"
  End Select
 Else
  ' Handles 1st to 20th
  Select Case Number
  Case 1
   Return "st"
  Case 2
   Return "nd"
  Case 3
   Return "rd"
  Case 4 To 20
   Return "th"
  End Select
 End If
 End Function

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim strNumber As String
 strNumber = "2" & GetOrdinal(38)
 MessageBox.Show(strNumber)
 End Sub
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики