DATE/TIME

Function CDOW()

 CDOW(<выражение типа дата>) --> название дня недели

CDOW() - это функция преобразования, которая используется для форматированной выдачи даты в отчеты, метки и на экран.

 Следующий пример показывает работу CDOW():
 
 ? DATE()                     // Результат: 09/01/90
 ? CDOW(DATE())               // Результат: Пятница
 ? CDOW(DATE() + 7)           // Результат: Пятница
 ? CDOW(CTOD("06/12/90"))     // Результат: Понедельник

Function CMONTH()

 CMONTH(<дата>) --> название месяца

CMONTH() - функция преобразования дат, которая предназначена для создания форматированных дат, представленных в виде символьных строк, для отчетов, меток, при выдаче на экран.

 Следующий пример иллюстрирует работу функции CMONTH():
 
 ? CMONTH( DATE()                // Результат: Сентябрь
 ? CMONTH( DATE() + 45)          // Результат: Октябрь
 ? SUBSTR( CMONTH( DATE()), 1, 3) +;
 STR( DAY( DATE()))              // Результат: Сен 29

Function CTOD()

 CTOD(<строка-дата>) --> дата

CTOD() - это функция преобразования символьных строк, которая преобразует строку символов в дату. Для формирования пустой даты необходимо задать <строка-дата> либо в виде строки нулевой длины (""), либо строкой SPACE(8), либо строкой "//".

CTOD() используется везде, где необходима дата в виде литеральной строки. Например:

При инициализации переменной для хранения дат

При определении литеральной строки, содержащей дату как аргумента предложения RANGE команды @...GET

При определении литеральной строки, содержащей дату, для выполнения арифметических действий над ней

При сравнении результата выполнения выражения над датами с литеральной строкой

При присваивании значения литеральной строки полю типа дата

Функция CTOD() обратна по действию функции DTOC(), которая преобразует значение переменной типа дата в литеральную строку в формате, определенном командами SET DATE и SET CENTURY. DTOC() также преобразует значение переменной типа дата в строку символов в формате ггггммдд.

 В этом примере функция CTOD() используется для инициализации двух
 переменных типа дата, включенных одна в команду GET, а другая - в
 предложение RANGE:
 
 SET CENTURY ON
 dBegin = CTOD("01-26-1876")
 dCurrent = CTOD("")
 @ 10, 10 SAY "Введите дату:" GET dCurrent RANGE dBegin, DATE()
 READ
 
 Этот пример использует CTOD() для преобразования даты в значение
 типа дата при проверке условия в команде FOR:
 
 USE Inventory NEW
 REPLACE ALL Inventory->Price WITH Inventory->Price * 1.1;
 FOR Inventory->InvDate < CTOD("10/10/90")

Function DATE()

 DATE() --> системная дата

DATE() - функция получения дат, которая дает возможность устанавливать начальные значения переменных памяти в виде текущей даты, сравнивать другие даты с текущей датой, производить арифметические вычисления над датами с участием текущей даты. Формат вывода даты на дисплей устанавливается командой SET DATE.

Формат, установленный по умолчанию мм/дд/гг.

 В следующем примере показано использование функции DATE():
 
 ? DATE()               // Результат: 09/01/90
 ? DATE() + 30          // Результат: 10/01/90
 ? DATE() - 30          // Результат: 08/02/90
 dDate = DATE()
 ? CMONTH(dDate)        // Результат: Сентябрь

Function DAY()

 DAY(<дата>) --> номер дня

DAY() - функция преобразования даты, которая используется для преобразования значения даты в номер дня в месяце. Она используется в комбинации с функциями CMONTH() и YEAR() для форматирования дат, а также при различных вычислениях над датами.

 Следующие примеры показывают работу функции DAY() с различными
 аргументами:
 
 ? DATE()                     // Результат: 09/01/90
 ? DAY(DATE())                // Результат: 1
 ? DAY(DATE()) + 1            // Результат: 2
 ? DAY(CTOD(""))              // Результат: 0
 
 Этот пример использует DAY() в комбинации с YEAR() для
 форматирования значения даты:
 
 ? CMONTH(DATE()) + STR(DAY(DATE())) +;
 "," + STR(YEAR(DATE()))      // Результат: Июнь 15, 1990

Function DOW()

 DOW(<дата>) --> номер дня

DOW() - это функция преобразования даты, которая преобразует значение даты в число, идентифицирующее день недели. Функция полезна при выполнении расчетов над днями недели. Функция DOW() похожа на функцию CDOW(), которая возвращает день недели в виде строки символов вместо числа.

 Следующие примеры показывают работу функций CDOW() и DOW():
 
 ? DATE()                  // Результат: 09/01/89
 ? DOW(DATE())             // Результат: 3
 ? CDOW(DATE())            // Результат: Вторник
 ? DOW(DATE() - 2)         // Результат: 1
 ? CDOW(DATE() - 2)        // Результат: Воскресенье
 
 В этом примере показана функция пользователя, которая использует
 DOW() для расчета даты последнего понедельника от любой другой
 даты:
 
 FUNCTION LastMonday( dDate )
 RETURN (dDate - DOW(dDate) + 2)

Function DTOC()

 DTOC(<дата>) --> строка-дата

DTOC() - функция преобразования даты, которая используется, когда нужно выделить дату в формате, установленном командой SET DATE в качестве элемента символьного выражения (например, при выводе меток). Если требуется специальный формат даты, вы можете использовать функцию TRANSFORM() или соответствующее выражение. Если вы включаете дату как элемент символьного выражения в индекс, для преобразования даты необходимо использовать DTOS() вместо DTOC().

 Следующие примеры показывают применение функции DTOC():
 
 ? DATE()                     // Результат: 09/01/90
 ? DTOC(DATE())               // Результат: 09/01/90
 ? "Сегодня " + DTOC(DATE())  // Результат: Сегодня 09/01/90

Function DTOS()

 DTOS(<дата>) --> строка-дата

DTOS() - это функция преобразования даты, которая используется при создании выражений индексов, содержащих значения даты, в строку символов, которая может быть сцеплена с какими-либо другими символьными выражениями. Структура возвращаемого значения - всегда ггггммдд.

 Следующие примеры показывают использование функции DTOS() в
 сочетании с другими функциями:
 
 ? DATE()                     // Результат: 09/01/90
 ? DTOS(DATE())               // Результат: 19900901
 ? LEN(DTOS(CTOD("")))        // Результат: 8
 
 Этот пример демонстрирует, как создать с использованием DTOS()
 индекс, включающий в себя комбинацию даты и символьного ключа:
 
 USE Sales NEW
 INDEX ON DTOS(Date) + Salesman TO DateName

Function FT_ACCTADJ()

 FT_ACCTADJ( [ <dGivenDate> ], [ <lIsEnd> ] ) --> dDate

Called by other FT_ACCT.. functions. The algorithm is:

Beginning of period mode:

If dGivenDate is in last 3 days of work week Return next week's start date Else Return this week's start date Endif

End of period mode:

If dGivenDate is in last 4 days of work week Return this week's end date Else Return prior week's end date Endif

 Beginning of period mode (lIsEnd == .F.)
 
 dDate := Ctod( "01/31/91" )  // In last 3 days of work week
 ? FT_ACCTADJ( dDate )        // 02/03/91 (next week's start)
 
 dDate := Ctod( "03/31/91" )  // Not in last 3 days of work week
 ? FT_ACCTADJ( dDate )        // 03/31/91 (this week's start)
 
 End of period mode (lIsEnd == .T.)
 
 dDate := Ctod( "01/31/91" )  // In last 4 days of work week
 ? FT_ACCTADJ( dDate, .T. )   // 02/02/91 (this week's end)
 
 dDate := Ctod( "03/31/91" )  // Not in last 4 days of work week
 ? FT_ACCTADJ( dDate, .T. )   // 03/30/91 (prior week's end)

Function FT_ACCTMONTH()

 FT_ACCTMONTH( [ <dGivenDate> ], [ <nMonthNum> ] ) --> aDateInfo

FT_ACCTMONTH() creates an array containing data about the accounting month containing the given date.

An accounting period has the following characteristics:

If the first week of the period contains 4 or more 'work' days, it is included in the period; otherwise, the first week was included in the prior period.

If the last week of the period contains 4 or more 'work' days it is included in the period; otherwise, the last week is included in the next period. This results in 13 week 'quarters' and 4 or 5 week 'months'. Every 5 or 6 years, a 'quarter' will contain 14 weeks and the year will contain 53 weeks.

 // get info about accounting month containing 9/15/90
 aDateInfo := FT_ACCTMONTH( Ctod("09/15/90") )
 ? aDateInfo[1]   //  199009       (9th month)
 ? aDateInfo[2]   //  09/02/90     beginning of month 9
 ? aDateInfo[3]   //  09/29/90     end of month 9
 
 // get info about accounting month 5 in year containing 9/15/90
 aDateInfo := FT_ACCTMONTH( Ctod("09/15/90"), 5 )
 ? aDateInfo[1]   //  199005
 ? aDateInfo[2]   //  04/29/89   beginning of month 5
 ? aDateInfo[3]   //  06/02/90   end of month 5

Function FT_ACCTQTR()

 FT_ACCTQTR( [ <dGivenDate> ], [ <nQtrNum> ] ) --> aDateinfo

FT_ACCTQTR() creates an array containing data about the accounting quarter containing the given date.

An accounting period has the following characteristics:

If the first week of the period contains 4 or more 'work' days, it is included in the period; otherwise, the first week was included in the prior period.

If the last week of the period contains 4 or more 'work' days it is included in the period; otherwise, the last week is included in the next period. This results in 13 week 'quarters' and 4 or 5 week 'months'. Every 5 or 6 years, a 'quarter' will contain 14 weeks and the year will contain 53 weeks.

 // get info about accounting month containing 9/15/90
 aDateInfo := FT_ACCTQTR( CTOD("09/15/90") )
 ? aDateInfo[1]   //  199003       (3rd quarter)
 ? aDateInfo[2]   //  07/01/90     beginning of quarter 3
 ? aDateInfo[3]   //  09/29/90     end of quarter 3
 
 // get info about accounting qtr. 2 in year containing 9/15/90
 aDateInfo := FT_ACCTQTR( CTOD("09/15/90"), 2 )
 ? aDateInfo[1]   //  199002
 ? aDateInfo[2]   //  04/01/89   beginning of quarter 2
 ? aDateInfo[3]   //  06/30/90   end of quarter 2

Function FT_ACCTWEEK()

 FT_ACCTWEEK( [ <dGivenDate> ], [ <nWeekNum> ] ) --> aDateInfo

FT_ACCTWEEK() returns an array containing data about the accounting week containing the given date.

An accounting period has the following characteristics:

If the first week of the period contains 4 or more 'work' days, it is included in the period; otherwise, the first week was included in the prior period.

If the last week of the period contains 4 or more 'work' days it is included in the period; otherwise, the last week is included in the next period. This results in 13 week 'quarters' and 4 or 5 week 'months'. Every 5 or 6 years, a 'quarter' will contain 14 weeks and the year will contain 53 weeks.

 // get info about accounting week containing 9/15/90
 aDateInfo := FT_ACCTWEEK( CTOD("09/15/90") )
 ? aDateInfo[1]   //  199037       (37th week)
 ? aDateInfo[2]   //  09/09/90     beginning of week 37
 ? aDateInfo[3]   //  09/15/90     end of week 37
 
 // get info about accounting week 25 in year containing 9/15/90
 aDateInfo := FT_ACCTWEEK( CTOD("09/15/90"), 25 )
 ? aDateInfo[1]   //  199025
 ? aDateInfo[2]   //  06/17/89   beginning of week 25
 ? aDateInfo[3]   //  06/23/90   end of week 25

Function FT_ACCTYEAR()

 FT_ACCTYEAR( [ <dGivenDate> ] ) --> aDateInfo

FT_ACCTYEAR() creates an array containing data about the accounting year containing the given date.

An accounting period has the following characteristics:

If the first week of the period contains 4 or more 'work' days, it is included in the period; otherwise, the first week was included in the prior period.

If the last week of the period contains 4 or more 'work' days it is included in the period; otherwise, the last week is included in the next period. This results in 13 week 'quarters' and 4 or 5 week 'months'. Every 5 or 6 years, a 'quarter' will contain 14 weeks and the year will contain 53 weeks.

 // get info about accounting year containing 9/15/90
 aDateInfo := FT_ACCTYEAR( CTOD("09/15/90") )
 ? aDateInfo[1]   //  1990
 ? aDateInfo[2]   //  12/31/89    beginning of year
 ? aDateInfo[3]   //  12/29/90    end of year

Function FT_ADDWKDY()

 FT_ADDWKDY( <dStart>, <nWorkDays> ) --> nTrueDays

Let's say you are given the problem:

"All invoices are due 10 working days from the date they are printed. Please display the due date on the invoice."

When is the due date? Assuming you are printing the invoices today, your answer is:

dDueDate := DATE() + ft_addWkDay( DATE(), 10 )

A work day is defined as Monday through Friday. Unfortunately this routine does _not_ account for holidays.

This documentation was written by Glenn Scott so if it's wrong, blame him.

 // Postdate 5 working days from the first of January
 dPost := CTOD("01/01/91")
 dPost += FT_ADDWKDY( dPost, 5 )   // returns 7 true days
 ? dPost                          //  01/08/91
 

Function FT_CALENDAR()

 FT_CALENDAR ( [ <nRow> ], [ <nCol> ], [ <cColor> ], [ <lShadow> ] ,
 [ <lShowHelp> ] ) --> aRetVal

FT_CALENDAR() simply displays today's date, time and julian day in a two line display with an optional box shadow. Cursor keys may be used to page through the calendar by day, week, month or year increments. Returns an 8 element array of calendar data:

Element Value [1] Date in current date format. [2] Numeric month number. [3] Numeric day number. [4] Numeric year number. [5] Month in character format. [6] Day of the week in character format. [7] Numeric Julian day. [8] Current time in time format.

WARNING: FT_CALENDAR uses FT_SHADOW and FT_XBOX from the Nanforum Toolkit!

  LOCAL aRetVal[8]
 CLS
 aRetVal := FT_CALENDAR (10,40,'W+/RB',.T.,.T.)
 ?aRetVal[1]      // Result: 04/20/91
 ?aRetVal[2]      // Result:   4
 ?aRetVal[3]      // Result:  20
 ?aRetVal[4]      // Result:  1991
 ?aRetVal[5]      // Result: April
 ?aRetVal[6]      // Result: Saturday
 ?aRetVal[7]      // Result:        110
 ?aRetVal[8]      // Result: 12:45:20
 

Function FT_CIV2MIL()

 FT_CIV2MIL( <cCIVTIME> ) --> cMILTIME

Converts time from 12-hour civilian format to military.

 FT_CIV2MIL( " 5:40 pm" ) --> 1740
 
 FT_CIV2MIL( " 5:40 am" ) --> 0540
 
 FT_CIV2MIL( "12:00 n" ) --> 1200
 
 FT_CIV2MIL( "12:00 m" ) --> 0000
 
 Caution:  leading blanks are irrelevant; p,a,n,m must be preceded by
 one and only one space.

Function FT_DATECNFG()

 FT_DATECNFG( [ <cFYStart> ], [ <nDow> ] ) --> aDateInfo

FT_DATECNFG() is called internally by many of the date functions in the library to determine the beginning of year date and beginning of week day.

The default beginning of the year is January 1st and the default beginning of the week is Sunday (day 1). Either or both of these settings may be changed by calling FT_DATECNFG() with the proper arguments. They will retain their values for the duration of the program or until they are changed again by a subsequent call to FT_DATECNFG().

It is not necessary to call FT_DATECNFG() unless you need to change the defaults.

FT_DATECNFG() affects the following library functions:

FT_WEEK() FT_ACCTWEEK() FT_DAYTOBOW() FT_MONTH() FT_ACCTMONTH() FT_DAYOFYR() FT_QTR() FT_ACCTQTR() FT_ACCTADJ() FT_YEAR() FT_ACCTYEAR()

 // Configure library date functions to begin year on
 //  July 1st.
 
 FT_DATECNFG("07/01/80")    // year is insignificant
 
 // Examples of return values:
 
 //  System date format: American           aArray[1]    aArray[2]
 
 aArray := FT_DATECNFG()              //  '1980.01.01'     1 (Sun.)
 aArray := FT_DATECNFG('07/01/80')    //  '1980.07.01'     1 (Sun.)
 aArray := FT_DATECNFG('07/01/80', 2) //  '1980.07.01'     2 (Mon.)
 aArray := FT_DATECNFG( , 2 )         //  '1980.01.01'     2 (Mon.)
 
 //  System date format: British
 
 aArray := FT_DATECNFG('01/07/80', 2) //  '1980.07.01'     2 (Mon.)

Function FT_DAYOFYR()

 FT_DAYOFYR( [ <dGivenDate> ], [ <nDayNum> ], [ <lIsAcct> ] )
 --> aDateInfo

FT_DAYOFYR() returns an array containing data about a day in the calendar or fiscal year containing the given date.

The beginning of year date defaults to January 1st but may be changed with FT_DATECNFG().

 aDateInfo := FT_DAYOFYR( CTOD("03/31/91") )
 ? aDateInfo[1]        // 1991090    (90th day of year 1991)
 ? aDateInfo[2]        // 01/01/91
 ? aDateInfo[3]        // 12/31/91
 
 aDateInfo := FT_DAYOFYR( , 90 )    // assume current date is 3/31/91
 ? aDateInfo[1]        // 03/31/91    (90th day of year)
 ? aDateInfo[2]        // 01/01/91
 ? aDateInfo[3]        // 12/31/91
 
 aDateInfo := FT_DAYOFYR( , 90, .T. )
 ? aDateInfo[1]        // 03/29/91    (90th day of accounting year)
 ? aDateInfo[2]        // 12/30/90    (1st day of accounting year)
 ? aDateInfo[3]        // 12/28/91    (last day of accounting year)

Function FT_DAYTOBOW()

 FT_DAYTOBOW( [ <dGivenDate> ] ) --> nDays

FT_DAYTOBOW() returns the number of days to the beginning of the week. Normally this will be one less than the value that would be returned by the Clipper function DOW(), unless the day for the beginning of the week has been changed with FT_DATECNFG().

 dDate := CTOD( "09/15/90" )
 
 ? DOW( dDate )               // 7
 ? CDOW( dDate )              // Saturday
 ? FT_DAYTOBOW( dDate )       // 6
 
 // change beginning of week to Friday  (yeah!)
 FT_DATECNFG( , 6 )
 ? DOW( dDate )               // 7
 ? CDOW( dDate )              // Saturday
 ? FT_DAYTOBOW( dDate )       // 1

Function FT_DOY()

 FT_DOY( <dDate> ) --> <nResult>

Finds the day number, considering 01/01 as day 1 Handles dates with CENTURY ON|OFF, to allow for 21st century. Date validation must be external to this function.

 These code fragments find the day number, given a date.
 
 // literal character date
 dDate  := CTOD("01/01/91")
 nDayNum := FT_DOY(dDate)              // result:  1
 
 // presume DOS date to be 01/06/91
 nDayNum := FT_DOY(DATE())             // result:  6
 
 // date input
 cDate  := SPACE(8)
 @ 4,10 get cDate PICT "##/##/##"      // input 07/04/91
 READ
 nDayNum := FT_DOY(CTOD(cDate))        // result: 185
 
 // last day of year
 nDayNum := FT_DOY(CTOD("12/31/91"))    // result: 365
 
 For a demonstration of this function, compile and link the
 program WOY.PRG in the Nanforum Toolkit source code.

Function FT_EASTER()

 FT_EASTER( <xYear> ) --> dEdate

Returns the date of Easter for any year after 1582 up to Clipper's limit which the manual states is 9999, but the Guide agrees with the actual imposed limit of 2999.

This function can be useful in calender type programs that indicate when holidays occur.

 dEdate := FT_EASTER( 1990 )     && returns 04/15/1990

Function FT_ELAPMIN()

 FT_ELAPMIN( <cTIME1>, <cTIME2> ) --> nMINUTES

Finds the arithmetic difference between time two times (time 2 - time 1). If time 2 is smaller than time 1, a NEGATIVE value is returned.

 FT_ELAPMIN( "1718", "2040" ) -->  322
 FT_ELAPMIN( "2040", "1718" ) --> -322

Function FT_ELAPSED()

 FT_ELAPSED([ <dStart> ], [ <dEnd> ], ;
 <cTimeStart>, <cTimeEnd>) --> aTimedata

FT_ELAPSED() calculates the elapsed time between two Date/Time events.

It returns an array which contains the following data:

aRetVal[1,1] Integer Days aRetVal[1,2] Total Days (nn.nnnn) aRetVal[2,1] Integer Hours aRetVal[2,2] Total Hours (nn.nnnn) aRetVal[3,1] Integer Minutes aRetVal[3,2] Total Minutes (nn.nnnn) aRetVal[4,1] Integer Seconds aRetVal[4,2] Total Seconds (nn)

 FT_ELAPSED(CTOD('11/28/90'), CTOD('11/30/90'), '08:00:00', '12:10:30')
 will return:
 
 aRetVal[1,1] -->  2 (Days)        aRetVal[1,2] -->    2.1740  Days
 aRetVal[2,1] -->  4 (Hours)       aRetVal[2,2] -->   52.1750  Hours
 aRetVal[3,1] --> 10 (Minutes)     aRetVal[3,2] --> 3130.5000  Minutes
 aRetVal[4,1] --> 30 (Seconds)     aRetVal[4,2] --> 187830     Seconds

Function FT_ELTIME()

 FT_ELTIME( <cTime1>, <cTime2> ) --> cDiff

Return the absolute difference between two times in hh:mm:ss format in character hours, minutes and seconds (hh:mm:ss).

 FT_ELTIME( "22:40:12", "23:55:17" ) --> 01:15:05
 FT_ELTIME( "23:55:17", "22:40:12" ) --> 01:15:05

Function FT_FDAY()

 FT_FDAY( [ <dDateToChk> ] ) --> dFirstDay

This function will return the first day of the month of the date passed, or the first day of the current month if no argument is supplied.

 dDate := CTOD( "09/15/90" )
 ? FT_FDAY( dDate )             // 09/01/90
 ? FT_FDAY()                    // 03/01/91  (current month)

Function FT_LDAY()

 FT_LDAY( [ <dDateToChk> ] ) --> dLastDay

This function will return the last day of the month of the date passed, or the last day of the current month if no argument is supplied.

 dDate := CTOD( "09/15/90" )
 ? FT_LDAY( dDate )             // 09/30/90
 ? FT_LDAY()                    // 03/31/91  (current month)

Function FT_MADD()

 FT_MADD( [ <dGivenDate> ], [ <nAddMonths> ], [ <lMakeEOM> ] )
 --> dDate

FT_MADD() adds or subtracts months to/from a given date.

If MakeEOM is passed and dGivenDate is the last day of a month, it will return the EOM of calculated month. Otherwise it will return the same day as the day of the passed date.

 dDate := CTOD( "09/15/90" )
 ? FT_MADD( dDate, 1 )        // 10/15/90
 ? FT_MADD( dDate, -2 )       // 07/15/90
 
 // force EOM
 dDate := CTOD( "04/30/91" )
 ? FT_MADD( dDate, 1 )        // 05/30/91
 ? FT_MADD( dDate, 1, .T. )   // 05/31/91  <- forced EOM
 ? FT_MADD( dDate, 2 )        // 06/30/91
 ? FT_MADD( dDate, 2, .T. )   // 06/30/91  <- June only has 30 days
 ? FT_MADD( dDate, 3 )        // 07/30/91
 ? FT_MADD( dDate, 3, .T. )   // 07/31/91  <- forced EOM
 

Function FT_MIL2CIV()

 FT_MIL2CIV( <cCIVTIME> ) --> dMILTIME

Converts time from military to civilian format

 FT_MIL2CIV( "1640" ) -->  4:40 pm
 
 FT_MIL2CIV( "0440" ) -->  4:40 am
 
 FT_MIL2CIV( "1200" ) --> 12:00 n
 
 FT_MIL2CIV( "0000" ) and FT_MIL2CIV( "2400" ) --> 12:00 m
 
 Caution:  leading blanks are irrelevant.

Function FT_MIL2MIN()

 FT_MIL2MIN( <cMILTIME> ) --> nMINUTE

Converts time in military format to number of minute of the day.

 FT_MIL2MIN( "1729" ) --> 1049

Function FT_MIN2DHM()

 FT_MIN2DHM( <nMinutes> ) --> aDHM_

Converts numeric minutes into a character array containing days, hours & minutes.

 aDHM_ = MIN2DHM(16789) --> aDHM_[1] = 11, aDHM_[2] = 15, aDHM_[3] = 49

Function FT_MIN2MIL()

 FT_MIN2MIL( <nMINUTE> ) --> cMILTIME

Converts minute of the day to military format time.

 FT_MIN2MIL( 279 ) --> 0439

Function FT_MONTH()

 FT_MONTH( [ <dGivenDate> ], [nMonthNum] ) --> aDateInfo

FT_MONTH() returns an array containing data about the month containing the given date.

Normally the return data will be based on a year beginning on January 1st with weeks beginning on Sunday.

The beginning of year date and/or beginning of week day can be changed by using FT_DATECNFG(), which will affect all subsequent calls to FT_MONTH() until another call to FT_DATECNFG().

The beginning of year date and beginning of week day may be reset to January 1 and Sunday by calling FT_DATECNFG() with no parameters.

 // get info about month containing 9/15/90
 aDateInfo := FT_MONTH( CTOD("09/15/90") )
 ? aDateInfo[1]   //  199009       (9th month)
 ? aDateInfo[2]   //  09/01/90     beginning of month 9
 ? aDateInfo[3]   //  09/30/90     end of week month 9
 
 // get info about month 5 in year containing 9/15/90
 aDateInfo := FT_MONTH( CTOD("09/15/90"), 5 )
 ? aDateInfo[1]   //  199005
 ? aDateInfo[2]   //  05/01/90   beginning of month 5
 ? aDateInfo[3]   //  05/31/90   end of month 5
 
 // get info about month 5 in current year (1991)
 aDateInfo := FT_MONTH( , 5 )
 ? aDateInfo[1]   //  199105
 ? aDateInfo[2]   //  05/01/91   beginning of month 5
 ? aDateInfo[3]   //  05/31/91   end of month 5

Function FT_QTR()

 FT_QTR( [ <dGivenDate> ], [ <nQtrNum> ] ) --> aDateInfo

FT_QTR() returns an array containing data about the quarter containing the given date.

Normally the return data will be based on a year beginning on January 1st with weeks beginning on Sunday.

The beginning of year date and/or beginning of week day can be changed by using FT_DATECNFG(), which will affect all subsequent calls to FT_QTR() until another call to FT_DATECNFG().

The beginning of year date and beginning of week day may be reset to January 1 and Sunday by calling FT_DATECNFG() with no parameters.

 // get info about quarter containing 9/15/90
 aDateInfo := FT_QTR( CTOD("09/15/90") )
 ? aDateInfo[1]   //  199003       (3rd quarter)
 ? aDateInfo[2]   //  07/01/90     beginning of quarter 3
 ? aDateInfo[3]   //  09/30/90     end of week quarter 3
 
 // get info about quarter 2 in year containing 9/15/90
 aDateInfo := FT_QTR( CTOD("09/15/90"), 2 )
 ? aDateInfo[1]   //  199002
 ? aDateInfo[2]   //  04/01/90   beginning of quarter 2
 ? aDateInfo[3]   //  06/30/90   end of quarter 2
 
 // get info about quarter 2 in current year (1991)
 aDateInfo := FT_QTR( , 2 )
 ? aDateInfo[1]   //  199102
 ? aDateInfo[2]   //  04/01/91   beginning of quarter 2
 ? aDateInfo[3]   //  06/30/91   end of quarter 2

Function FT_SYS2MIL()

 FT_SYS2MIL() --> cMILTIME

Return current system time as character string in military format.

 FT_SYS2MIL() --> 1623

Function FT_WEEK()

 FT_WEEK( [ <dGivenDate> ], [ <nWeekNum> ] ) --> aDateinfo

FT_WEEK() returns an array containing data about the week containing the given date.

Normally the return data will be based on a year beginning on January 1st with weeks beginning on Sunday.

The beginning of year date and/or beginning of week day can be changed by using FT_DATECNFG(), which will affect all subsequent calls to FT_WEEK() until another call to FT_DATECNFG().

The beginning of year date and beginning of week day may be reset to January 1 and Sunday by calling FT_DATECNFG() with no parameters.

 // get info about week containing 9/15/90
 aDateInfo := FT_WEEK( CTOD("09/15/90") )
 ? aDateInfo[1]   //  199037       (37th week)
 ? aDateInfo[2]   //  09/09/90     beginning of week 37
 ? aDateInfo[3]   //  09/15/90     end of week 37
 
 // get info about week 25 in year containing 9/15/90
 aDateInfo := FT_WEEK( CTOD("09/15/90"), 25 )
 ? aDateInfo[1]   //  199025
 ? aDateInfo[2]   //  06/17/90   beginning of week 25
 ? aDateInfo[3]   //  06/23/90   end of week 25
 
 // get info about week 25 in current year( 1991 )
 aDateInfo := FT_WEEK( , 25 )
 ? aDateInfo[1]   //  199025
 ? aDateInfo[2]   //  06/16/91   beginning of week 25
 ? aDateInfo[3]   //  06/22/91   end of week 25

Function FT_WORKDAYS()

 FT_WORKDAYS( [ <dStart> ], [ <dStop> ] ) --> nDays

FT_WORKDAYS() returns a number indicating the number of work days between two dates. Work days are considered Monday through Friday. (The five day work week none of us Clipper programmers have.)

 ? FT_WorkDays( CTOD("5/16/91"), CTOD("5/20/91") ) // 3  (Th - Mo)
 ? FT_WorkDays( CTOD("5/18/91"), CTOD("5/19/91") ) // 0  (Sa - Su)
 ? FT_WorkDays( CTOD("5/17/91"), CTOD("5/17/91") ) // 1  (Fr - Fr)

Function FT_WOY()

 FT_WOY( <dDate> ) --> <nResult>

Considers a full week as starting on Sunday, ending on Saturday. First week of year (week 1) may start on any day, and thus contain any number of days. Final week of year (week 53) may contain any number of days. Handles dates with CENTURY ON|OFF, to allow for 21st century. Date validation must be external to this function.

 These code fragments find the week number, given a date.
 
 // literal character date
 dDate  := CTOD("01/01/91")
 nWkNum := FT_WOY(dDate)              // result:  1
 
 // presume DOS date to be 01/06/91
 nWkNum := FT_WOY(DATE())             // result:  2
 
 // date input
 cDate  := SPACE(8)
 @ 4,10 get cDate PICT "##/##/##"     // input 07/04/91
 READ
 nWkNum := FT_WOY(CTOD(cDate))        // result: 27
 
 // last day of year
 nWkNum := FT_WOY(CTOD("12/31/91"))    // result: 53
 
 For a demonstration of this function, compile and link the
 program WOY.PRG in the Nanforum Toolkit source code.

Function FT_YEAR()

 FT_YEAR( [ <dGivenDate> ] ) --> aDateInfo

FT_YEAR() returns an array containing data about the year containing the given date.

Normally the return data will be based on a year beginning on January 1st.

The beginning of year date can be changed by using FT_DATECNFG(), which will affect all subsequent calls to FT_YEAR() until another call to FT_DATECNFG().

The beginning of year date may be reset to January 1 by calling FT_DATECNFG() with no parameters.

 // Get info about year containing 9/15/90, assuming default
 // beginning of year is January 1st.
 aDateInfo := FT_YEAR( Ctod("09/15/90") )
 ? aDateInfo[1]   //  1990
 ? aDateInfo[2]   //  01/01/90     beginning of year
 ? aDateInfo[3]   //  12/31/90     end of year
 
 // get info about current year (1991).
 aDateInfo := FT_YEAR()
 ? aDateInfo[1]   //  1991
 ? aDateInfo[2]   //  01/01/91   beginning of year
 ? aDateInfo[3]   //  12/31/91   end of year

Function MONTH()

 MONTH(<дата>) --> номер месяца

MONTH() - функция обработки даты, которая может быть полезна, если в процессе вычислений необходимо числовое значение месяца. MONTH() входит в группу функций, которые возвращают компоненты даты как целое число. В эту группу также входят функции DAY() и YEAR(), которые возвращают числовые значения дня и года. Функция CMONTH() позволяет по значению даты определить название месяца.

 Этот пример определяет номер месяца для системной даты.
 
 ? DATE()                  // Результат: 09/01/90
 ? MONTH(DATE())           // Результат: 9
 ? MONTH(DATE()+1)         // Результат: 10
 
 Следующий пример демонстрирует, как MONTH() обрабатывает нулевую
 дату.
 
 #define NULL DATE (CTOD(""))
 ? MONTH(NULL DATE)        // Результат: 0

Function SECONDS()

 SECONDS() --> количество секунд

SECONDS() - это функция получения времени, используемая для обеспечения простого метода вычисления интервалов времени. Она использует системный таймер. SECONDS() родственна функции TIME(), которая возвращает системное время в виде строки формата чч:мм:сс.

 Этот пример сравнивает значения TIME() и SECONDS():
 
 ? TIME()            // Результат: 10:00:00
 ? SECONDS()         // Результат: 36000.00
 
 Этот пример демонстрирует использование SECONDS() для отслеживания
 времени, отсчитываемого в секундах:
 
 LOCAL nStart, nElapsed
 nStart = SECONDS()
 ...
 ...<операторы>
 ...
 nElapsed = SECONDS() - nStart
 ? "Прошло :" + LTRIM(STR(nElapsed)) + " секунд"

Function TIME()

 TIME() --> системное время.

TIME() - функция получения времени, используемая для вызова на экран или печатающее устройство системного времени. TIME() связана с функцией SECONDS(), которая возвращает количество секунд с начала суток. Вместо TIME() для вычислений обычно используется SECONDS().

 Следующие примеры показывают результаты работы функции TIME() в
 сочетании с SUBSTR() для выделения количества часов, минут и
 секунд:
 
 ? TIME()                     // Результат: 10:37:17
 ? SUBSTR(TIME(), 1, 2)       // Результат: 10
 ? SUBSTR(TIME(), 4, 2)       // Результат: 37
 ? SUBSTR(TIME(), 7, 2)       // Результат: 17

Function YEAR()

 YEAR (<дата>) --> год

YEAR() - функция преобразования даты, которая используется для перевода заданной даты в числовое значение года. Функция может быть использована при вычислениях или для форматирования дат. YEAR() входит в группу функций, которые возвращают компоненты дат в виде чисел. К этой группе относятся также функции DAY() и MONTH(), которые возвращают значения дня и месяца в виде числовых значений.

 Следующий пример демонстрирует использование функции YEAR().
 
 ? DATE() // Результат: 09/01/90
 ? YEAR (DATE() ) // Результат: 1990
 ? YEAR (DATE () ) + 11 // Результат: 2001
 
 Этот пример создает функцию пользователя, применяющую функцию
 YEAR() для форматирования значения даты в форме месяц, день, год:
 
 ? Mdy(DATE () ) // Результат; September 20,1990
 
 FUNCTION Mdy ( dDate )
 RETURN Mdy ( dDate ) + " " + LTRIM(STR(DAY(dDate)));
 + "," + STR(YEAR(dDate))