Q5/ws_objects/Ew_rs.pbl.src/f_idcard_to_date.srf

$PBExportHeader$f_idcard_to_date.srf
global type f_idcard_to_date from function_object
end type

forward prototypes
global function datetime f_idcard_to_date (string idcardcode, integer mode)
end prototypes

global function datetime f_idcard_to_date (string idcardcode, integer mode);datetime ls_date
string ls_year,ls_mth,ls_day
if mode =1 then
	ls_year=mid(idcardcode,7,2)
	if mid(ls_year,1,1)='0' then
		ls_year='20'+ls_year
	else
		ls_year='19'+ls_year
	end if
	ls_date=datetime(date(ls_year+'/'+mid(idcardcode,9,2)+'/'+mid(idcardcode,11,2)),time('00:00:00'))
else
	ls_year=mid(idcardcode,7,4)
	ls_date=datetime(date(ls_year+'/'+mid(idcardcode,11,2)+'/'+mid(idcardcode,13,2)),time('00:00:00'))
	
end if


return ls_date
end function