Функция  MonthStr  

MonthDay( Date_ )  Возвращает строку с названием месяца по дате..

Date_  - Дата в формате Clarion

Прототип: MonthStr (Long), String

MonthDay FUNCTION (Date_)
CODE
  case month( Date_ )
  of 1
     r" = 'Январь'
  of 2
     r" = 'Февраль'
  of 3
     r" =  'Март'
  of 4
     r" = 'Апрель'
  of 5
     r" = 'Май'
  of 6
     r" =  'Июнь'
  of 7
     r" = 'Июль'
  of 8
     r" = 'Август'
  of 9
     r" = 'Сентябрь'
  of 10
     r" = 'Октябрь'
  of 11
     r" = 'Ноябрь'
  of 12
     r" = 'Декабрь'
  .
  return( r" )

А этот набор картинок поможет "оживить" диалоговые окна, выводящие информацию о заданном месяце:
Jan.gif (378 bytes)Febr.gif (342 bytes)Mart.gif (333 bytes)April.gif (401 bytes)May.gif (477 bytes)June.gif (490 bytes)July.gif (353 bytes)August.gif (398 bytes)Sept.gif (479 bytes)Oct.gif (493 bytes)Novem.gif (560 bytes)Dec.gif (478 bytes)     Monts.gif (578 bytes)

Hosted by uCoz