Function FormatAngka(oObj)
	If oObj.value = "" Then
		oObj.value = FormatNumber(0,2)
	Else
		oObj.value = FormatNumber(oObj.value,2)
	End if
End Function

Function NeoFormatAngka(oObj,dcm)
	If oObj.value = "" Then
		oObj.value = FormatNumber(0,dcm)
	Else
		oObj.value = FormatNumber(oObj.value,dcm)
	End if
End Function

Function FormatAngka2(oObj)
	If oObj.value = "" Then
		oObj.value = FormatNumber(0,4)
	Else
		oObj.value = FormatNumber(oObj.value,4)
	End if
End Function

'Function FormatTanggal(oObj)
'	If Len(oObj.value) > 0 Then
'	If Len(oObj.value) = 6 Then
'		If instr(oObj.value,"/") >0 Then
'			alert("Format Date is dd/mm/yyyy")
'			oObj.focus()
'		Else
'			If Right(oObj.value,2) < 20 Then
'				If CheckDate(Left(oObj.value,2),Mid(oObj.value,3,2),"20" & Right(oObj.value,2)) Then
'					oObj.value = Left(oObj.value,2) & "/" & Mid(oObj.value,3,2) & "/20" & Right(oObj.value,2)
'				Else
'					alert("Invalid Date")
'					oObj.focus()
'				End if
'			Else
'				If CheckDate(Left(oObj.value,2),Mid(oObj.value,3,2),"19" & Right(oObj.value,2)) Then
'					oObj.value = Left(oObj.value,2) & "/" & Mid(oObj.value,3,2) & "/19" & Right(oObj.value,2)
'				Else
'					alert("Invalid Date")
'					oObj.focus()
'				End if
'			End if
'		End if
'	Else
'	If Len(oObj.value) = 8 Then
'		If instr(oObj.value,"/") >0 Then
'			alert("Format Date is dd/mm/yyyy")
'			oObj.focus()
'		Else
'			If CheckDate(Left(oObj.value,2),Mid(oObj.value,3,2), Right(oObj.value,4)) Then
'				oObj.value = Left(oObj.value,2) & "/" & Mid(oObj.value,3,2) & "/" & Right(oObj.value,4)
'			Else
'				alert("Invalid Date")
'				oObj.focus()
'			End if
'		End if
'	Else
'	If Len(oObj.value) = 10 Then
'		If instr(oObj.value,"/") = 0 Then
'			alert("Format Date is dd/mm/yyyy")
'			oObj.focus()
'		Else
'			If Not CheckDate(Left(oObj.value,2),Mid(oObj.value,4,2), Right(oObj.value,4)) Then
'				alert("Invalid Date")
'				oObj.focus()
'			End if
'		End if
'	Else
'		alert("Format Date is dd/mm/yyyy")
'		oObj.focus()
'	End if
'	End if
'	End if
'	End if
'End Function

'Function CheckDate(nDay, nMonth, nYear) 
'	if nMonth="04" OR nMonth="06" OR nMonth="09" OR nMonth="11" Then
'		If nDay > "30" Then
'			CheckDate = False
'		Else
'			CheckDate = True
'		End if
'	Else 
'	If nMonth="02" Then
'		If cInt(nYear) mod 4 = 0 Then
'			If nDay > "29" Then 
'				CheckDate = False
'			Else
'				CheckDate = True
'			End if
'		Else 
'			If nDay > "28" Then
'				CheckDate = False
'			Else
'				CheckDate = True
'			End if
'		End if
'	Else
'		CheckDate = True
'	End if
'	End if
'End Function