29 Ноябрь 2009

Вывод по очереди месяцев

Разное |  Таги: , ,

Вывод по очереди месяцев

Private Sub Command1_Click()
    Static i&

    i& = i& + 1
    If i& = 13 Then i& = 1
    Text1.Text = MonthName(i&)
End Sub

Запись опубликована on 29.11.2009 at 9:03 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.