PARAMETERS nach_data, con_data, kol_dney
PUBLIC my_chislo_nach, my_chislo_kon, my_data_tek1, my_data_tek2, rab_day, vix_day
STORE  0  TO rab_day, vix_day
kol_dney = IIF(!EMPTY(kol_dney),kol_dney, 0 )
my_chislo_nach = kol_dney(nach_data)
my_chislo_kon = IIF(!EMPTY(con_data),kol_dney(con_data,.T.),my_chislo_nach+kol_dney)

my_data_tek1 = poluch_daty(my_chislo_nach) && начальная дата
my_data_tek2 = poluch_daty(my_chislo_kon) && конечная дата

DO vichisl_rab_vix WITH my_chislo_nach, my_chislo_kon

PROCEDURE kol_dney && получить количество дней от начала света
	PARAMETERS my_date_all, dopol
	my_date = YEAR(my_date_all) + IIF(dopol, 1 , 0 )
	my_vis_god = IIF(my_date/ 4  = INT(my_date/ 4 ),.T.,.F.)
	my_val_do_vis = ROUND((my_date/ 4  - INT(my_date/ 4 )) *  4 , 0 )
	my_dni_do_vis =  365  * my_val_do_vis
	my_val_ostat = my_date - my_val_do_vis
	my_dni_ostat_vis = INT((my_val_ostat/ 4 )* 366 )
	my_dni_ostat_nor = INT((my_val_ostat-(my_val_ostat/ 4 ))* 365 )
	my_dni_ostat = my_dni_ostat_vis + my_dni_ostat_nor
	my_dni_dopol = kol_dney_mess(MONTH(my_date_all),DAY(my_date_all),my_vis_god)
	my_dni_all = my_dni_ostat + my_dni_do_vis + my_dni_dopol
RETURN my_dni_all

PROCEDURE kol_dney_mess && получить количество дней текущего года
	PARAMETERS my_mes, my_day, vis_god
	ret_day = my_day
	ret_day = IIF(my_mes> 1 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 2 ,ret_day+ 28 +IIF(vis_god, 1 , 0 ),ret_day)
	ret_day = IIF(my_mes> 3 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 4 ,ret_day+ 30 ,ret_day)
	ret_day = IIF(my_mes> 5 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 6 ,ret_day+ 30 ,ret_day)
	ret_day = IIF(my_mes> 7 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 8 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 9 ,ret_day+ 30 ,ret_day)
	ret_day = IIF(my_mes> 10 ,ret_day+ 31 ,ret_day)
	ret_day = IIF(my_mes> 11 ,ret_day+ 30 ,ret_day)
RETURN ret_day

PROCEDURE poluch_daty && получить дату по количеству всех дней
	PARAMETERS chislo_dati
	my_chislo_visok = INT(chislo_dati/( 4 * 366 ))
	my_chislo_visok = IIF(my_chislo_visok> 0 ,my_chislo_visok+ 1 , 1 )
	my_chislo_normal = INT((chislo_dati-(my_chislo_visok* 366 ))/ 365 )
	my_yer = IIF(chislo_dati> 366 ,my_chislo_visok+my_chislo_normal, 0 )
	my_vis_god = IIF(my_yer/ 4  = INT(my_yer/ 4 ),.T.,.F.)
	my_month_day = chislo_dati - (my_chislo_normal *  365  + my_chislo_visok *  366 )
	my_month = poluch_month(my_month_day,my_vis_god)
	my_day = my_month_day - kol_dney_mess(my_month, 0 ,my_vis_god) && получить количество дней текущего месяца
	ret_date = IIF(my_day< 10 ,'0','') + ALLTRIM(STR(my_day)) + IIF(my_month< 10 ,'.0','.') + ALLTRIM(STR(my_month)) + '.' + ALLTRIM(STR(my_yer))
RETURN ret_date

PROCEDURE poluch_month && получить месяц по количеству дней с начало года
	PARAMETERS kol_dn, vis_god
	my_day_vis = IIF(vis_god, 1 , 0 )
	DO CASE
		CASE kol_dn >  334  + my_day_vis
			my_ret_month =  12 
		CASE kol_dn >  304  + my_day_vis
			my_ret_month =  11 
		CASE kol_dn >  273  + my_day_vis
			my_ret_month =  10 
		CASE kol_dn >  243  + my_day_vis
			my_ret_month =  9 
		CASE kol_dn >  212  + my_day_vis
			my_ret_month =  8 
		CASE kol_dn >  181  + my_day_vis
			my_ret_month =  7 
		CASE kol_dn >  151  + my_day_vis
			my_ret_month =  6 
		CASE kol_dn >  120  + my_day_vis
			my_ret_month =  5 
		CASE kol_dn >  90  + my_day_vis
			my_ret_month =  4 
		CASE kol_dn >  59  + my_day_vis
			my_ret_month =  3 
		CASE kol_dn >  31  + my_day_vis
			my_ret_month =  2 
		OTHERWISE
			my_ret_month =  1 
	ENDCASE
RETURN my_ret_month

PROCEDURE vichisl_rab_vix && получить количество рабочих и выходных дней
	PARAMETERS ot_chisla, do_chisla
	FOR my_1 = ot_chisla TO do_chisla
		my_data_tek = poluch_daty(my_1)
		my_date_vix_rab = CDOW(CTOD(my_data_tek))
		DO CASE
			CASE LEFT(my_date_vix_rab, 1 )='S'
				vix_day = vix_day +  1 
			OTHERWISE
				rab_day = rab_day +  1 
		ENDCASE
	ENDFOR
ENDPROC

PARAMETERS nach_data, con_data, kol_dney
PUBLIC my_chislo_nach, my_chislo_kon, my_data_tek1, my_data_tek2, rab_day, vix_day, kol_nedel
STORE  0  TO rab_day, vix_day, kol_nedel
kol_dney = IIF(!EMPTY(kol_dney),kol_dney, 0 )
my_chislo_nach = VAL(SYS( 11 ,nach_data))
my_chislo_kon = IIF(!EMPTY(con_data),VAL(SYS( 11 ,con_data)),my_chislo_nach+kol_dney)
my_data_tek1 = SYS( 10 ,my_chislo_nach) && начальная дата
my_data_tek2 = SYS( 10 ,my_chislo_kon) && конечная дата
DO vichisl_rab_vix WITH my_chislo_nach, my_chislo_kon
DO vichisl_nedel WITH my_chislo_nach, my_chislo_kon

PROCEDURE vichisl_rab_vix && получить количество рабочих и выходных дней
	PARAMETERS ot_chisla, do_chisla
	FOR my_1 = ot_chisla TO do_chisla
		my_date_vix_rab = DOW(CTOD(SYS( 10 ,my_1)))
		DO CASE
			CASE INLIST(my_date_vix_rab, 1 , 6 )
				vix_day = vix_day +  1 
			OTHERWISE
				rab_day = rab_day +  1 
		ENDCASE
	ENDFOR
ENDPROC

PROCEDURE vichisl_nedel && получить количество недель
	PARAMETERS ot_chisla, do_chisla
	my_nach_nedel = DOW(CTOD(SYS( 10 ,ot_chisla)))
	FOR my_1 = ot_chisla+ 1  TO do_chisla
		my_date_vix_rab = DOW(CTOD(SYS( 10 ,my_1)))
		kol_nedel = IIF(my_nach_nedel=my_date_vix_rab,kol_nedel+ 1 ,kol_nedel)
	ENDFOR
ENDPROC