function DateDiffVb(flag, SDATE, EDATE)

	SDATE	= Replace(SDATE, ".", "/")
	EDATE	= Replace(EDATE, ".", "/")

	if Not isDate(SDATE) then
	
		msgbox "½ÃÀÛÀÏÀÚ°¡ ¿Ã¹Ù¸¥ ³¯Â¥ Çü½ÄÀÌ ¾Æ´Õ´Ï´Ù !!!"
		
		DateDiffVb = null
	
		exit function
	
	end if
	
	if Not isDate(EDATE) then
	
		msgbox "Á¾·áÀÏÀÚ°¡ ¿Ã¹Ù¸¥ ³¯Â¥ Çü½ÄÀÌ ¾Æ´Õ´Ï´Ù !!!"
		
		DateDiffVb = null 
		
		exit function
	
	end if

	DateDiffVb = DateDiff(flag, SDATE, EDATE)

end function


function ReplaceVb(str, flag1, flag2)

	ReplaceVb = Replace(str, flag1, flag2)

end function



function CheckDateVb(str)

	if isDate(Replace(str, ".", "/")) then
		CheckDateVb = true
	else
		CheckDateVb = false
	end if

end function

function vbLenClsChg (Ctrl)

	dim flag, f, DT_FR, DT_TO

	on error resume next

	Set f = Ctrl.form	
	flag = Ctrl.value
	
	if err then
	
		on error goto 0
	
		Set f = document.SearchForm
		
		dim index
		
		for i = 0 to f.LEN_CLS.length - 1
		
			if f.LEN_CLS(i).checked then
			
				index = i
			
			end if
		
		next
		
		flag = f.LEN_CLS(index).value
	
		err.Clear
		
		
		
	end if
	
	if flag = "1" then 

		'´çÀÏ

		f.DT_FR.value = GetDate(Date, ".")
		f.DT_TO.value = GetDate(Date, ".")

	elseif flag = "2" then

		'ÃÖ±Ù3ÀÏ

		f.DT_FR.value = GetDate(DateAdd("d", -2, Date), ".")
		f.DT_TO.value = GetDate(Date, ".")

	elseif flag = "3" then

		'ÃÖ±Ù1ÁÖÀÏ

		f.DT_FR.value = GetDate(DateAdd("d", 1, DateAdd("ww", -1, Date)), ".")
		f.DT_TO.value = GetDate(Date, ".")

	elseif flag = "4" then

		'ÃÖ±Ù1´Þ
		f.DT_FR.value = GetDate(DateAdd("d", 1, DateAdd("m", -1, Date)), ".")
		f.DT_TO.value = GetDate(Date, ".")

	elseif flag = "5" then

		'ÃÖ±Ù3´Þ

		f.DT_FR.value = GetDate(DateAdd("d", 1, DateAdd("m", -3, Date)), ".")
		f.DT_TO.value = GetDate(Date, ".")

	elseif flag = "6" then

		'ÃÖ±Ù1³â
	
		f.DT_FR.value = GetDate(DateAdd("d", 1, DateAdd("yyyy", -1, Date)), ".")
		f.DT_TO.value = GetDate(Date, ".")

	end if


end function

function vbLenMChg(Ctrl)

	Set f = Ctrl.form

	if Ctrl.value <> "" then
		
		f.DT_FR.value = Ctrl(Ctrl.selectedIndex).text & ".01"
		f.DT_TO.value = Ctrl(Ctrl.selectedIndex).text & "." & Ctrl.value

	else

		'vbLenClsChg(f.LEN_CLS)

	end if

end function

function vbLenYChg(Ctrl)

	Set f = Ctrl.form

	if Ctrl.value <> "" then
		
		f.DT_FR.value = Ctrl.value & ".01.01"
		f.DT_TO.value = Ctrl.value & ".12.31"

	else

		'vbLenClsChg(f.LEN_CLS)

	end if

end function

function GetDate(RDate, marker)
		
		if isnull(RDate) or RDate = "" then
			
			GetDate	= "&nbsp;&nbsp;&nbsp;&nbsp;" & marker & "&nbsp;&nbsp;" & marker & "&nbsp;&nbsp;"

		else
		
			dim dy, dm, dd
			
			RDate = Replace(RDate, ".", "/")
			
			dy = CCur(year(RDate))
			dm = CCur(month(RDate))
			dd = CCur(day(RDate))

			if dm < 10 then
				dm = "0" & dm
			end if
			
			if dd < 10 then
				dd = "0" & dd
			end if

			GetDate = dy & marker & dm & marker & dd

		end if

end function


'Grid1 °ü·Ã °øÅë Start

Sub Grid1_FormatText(RowKey, ColIndex, CellKind, Value)

	If Not IsNumeric(Value) Then Exit Sub

	If CellKind = 0 then
		if InStr(Value, ".") then
			Value = FormatNumber(Value, 2, true, false, true)
		else
			Value = FormatNumber(Value, 0, true, false, true)
		end if
	End If

End Sub

Sub Grid1_AfterClickSort(ColIndex)

	Set obj = document.all.Grid1
	
	obj.ExpandAll(1)

End Sub

dim mlFindStartRow

Sub GridColumnChange

	mlFindStartRow = 0

End Sub

Sub GridSearch()

	Set obj = document.all.Grid1
	
	dim sgRow, sCriteria
	
	sCriteria = CStr(document.SearchForm.GridSearchKeyword.value)
	
	if len(sCriteria) = 0 then
		exit sub
	end if
	
	if mlFindStartRow = 0 then
		obj.row = 1
	end if

	if mlFindStartRow + 1 = obj.Rows.Count then
		mlFindStartRow = 0
	end if	
	
	Set sgRow = obj.Rows.Find(document.SearchForm.GridColumn.value, 8, sCriteria, , mlFindStartRow + 1, , 1)
	
	if Not sgRow Is Nothing then
	
		obj.ExpandAll 2
		obj.Selection.Clear
		obj.EnsureCellVisible sgRow.Key, document.SearchForm.GridColumn.value
		obj.Row = sgRow.Position
		
		mlFindStartRow = sgRow.Position
		
		obj.TopRow = mlFindStartRow
		obj.Selection.Ranges.Add 1, 0, sgRow.Position, 0, sgRow.Position
		
	else
		msgbox ("´õÀÌ»ó °Ë»ö°á°ú°¡ ¾ø½À´Ï´Ù !!!")
		mlFindStartRow = 0
	end if
	


End Sub

function GetRateDiff(AMT_GONG, AMT_IB, AMT_DIFF, FARE_AMT, FLAG_RET)

	'¿©±âÀÇ ·ÎÁ÷ÀÌ º¯°æµÉ°æ¿ì DBÀÇ FN_GET_RATE_DIFF ÇÔ¼öÀÇ ·ÎÁ÷µµ º¯°æÇØÁÙ°Í..

	if AMT_DIFF = 0 then
		GetRateDiff = 0
	else
		if AMT_IB = 0 and AMT_GONG = 0 then
			GetRateDiff = 0
		elseif AMT_IB = 0 and AMT_GONG <> 0 then
			
			if Not FLAG_RET then
				GetRateDiff = 100 - (FARE_AMT / AMT_GONG * 100)
			else
				GetRateDiff = -100 - (FARE_AMT / AMT_GONG * -100)
			end if
			
		elseif AMT_IB <> 0 and AMT_GONG = 0 then

			if Not FLAG_RET then
				GetRateDiff = -100 - (FARE_AMT / AMT_IB * 100)
			else
				GetRateDiff = 100 - (FARE_AMT / AMT_IB * -100)
			end if
		else
			if Not FLAG_RET then
				GetRateDiff = AMT_DIFF / AMT_GONG * 100
			else
				GetRateDiff = AMT_DIFF / AMT_GONG * -100
			end if
					
		end if
	
	end if

end function

'Grid1 °ü·Ã °øÅë end