@ 5,0 SAY longdate({02/16/95})
@ 6,5 SAY quarter(DATE( ))
PARAMETER mdate
RETURN CDOW(mdate) + ', ' + MDY(mdate)
PARAMETER qdate
DO CASE
CASE MONTH (qdate) > 9
RETURN 'Fourth Quarter'
CASE MONTH (qdate) > 6
RETURN 'Third Quarter'
CASE MONTH (qdate) > 3
RETURN 'Second Quarter'
OTHERWISE
RETURN 'First Quarter'
ENDCASE
* LONGDATE преобразует переменную типа Date в символьную строку,
* которую можно использовать в отчетах. QUARTER возвращает номер
* квартала года исходя из номера месяца. Эти две функции можно
* использовать для печати заголовка в отчете.
Новое на сайте
-
Обновлен портфель программиста
Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский) -
Новые примеры программ
Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2) -
Обновленна справка
Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.