FUNCTION last_day
LPARAMETERS ldDate
*Пример
*v_date={^ 2009 - 04 - 12 } => {^ 2009 - 04 - 30 }
*v_date={^ 2009 - 04 - 12   12 : 03 : 09 } =>{^ 2009 - 04 - 30   12 : 03 : 09 }
LOCAL ldReturn
***возвращаем последний день месяца ,содержащ в заданной вх дате

FUNCTION get_name_month
**функция получения названия месяца по его номеру
**?get_name_month( 1 )
** январь
** n_month int
**v_p = 0  или пусто в нижнем регистре
**= 2  в верхнем регистре
**в других случаях Первая буква заглавная
**v_nls пусто по английски, в ином случае по русски
Lparameters n_month,v_p,v_nls

FUNCTION dateAdd
lPARAMETERS lcEdinica,lnKol_vo, ldDate
**dateadd('yy', 1 ,DATE()) прибавим к дате один год
*lcEdinica int:= year | quarter | month | week | day | hour | minute | second |
**ldDate date:= date() 
**or
**lddate datetime :=datetime()

FUNCTION TRUNC
***усечение даты
lPARAMETERS ldDate,lcEdinica

FUNCTION to_char
*преобразование значения даты-времени в комбинированную строку
	LPARAMETERS ldDate,v_format,v_nls
	*'yyyy-mm-dd' 'yyyy-MON-dd' 'yy-Month-dd'
	*dd-день месяца
	*mm-номер месяца в году  1 - 12 
	*mon- сокращ назв месяца
	*Month-полное название месяца
	*'hh24:mi:ss' 'hhAM:mi:ss'
	**v_nls пусто по английски, в ином случае по русски

Пример:
SET DEFAULT TO c:\TEST\ANT_CLS\
SET CLASSLIB TO cls_dates
получим первый день месяца ,
последний день месяца,
название месяца по его номеру,
преобразуем дату-время в нужный формат(string) на русс и англ языках
WITH CREATEOBJECT('cls_dates')
?.trunc(DATE(),'mm')
?.last_day(DATE())
?.get_name_month(month(DATE()),, 1 )
?.to_char(DATETIME(),'hh24-mi:ss yyyy-Month^dd', 3 )
?.to_char(DATETIME(),'hh24:mi yyyy-MON^dd ss')
endwith