function JudgeKinmu()'勤務可能判定

'--- スクリプト開始  ---

	JudgeKinmu = -1
	select case ID番号()
		case 340,341
			if 日() >= 16 then
				if 勤務番号() = 5 then exit function
			end if
		case 342,343,344
			if 日() <= 15 then
				if 勤務番号() = 5 then exit function
			end if
	end select
	JudgeKinmu = 0

'--- スクリプト終わり --

end function