function jtrim(str)
	jtrim = trim(str)
end function

function getToday()
	dim	today, yPart, mPart, dPart
	
	today = date
	yPart = datePart("YYYY", today)
	mPart = datePart("M", today)
	dPart = datePart("D", today)
	
	if len(mPart)<2 then
		mPart = "0" & mPart
	end if
	
	if len(dPart)<2 then
		dPart = "0" & dPart
	end if
	
	getToday = yPart & mPart & dPart
end function

function getNow()
	dim	today, hPart, nPart, sPart
	
	today = now
	hPart = datePart("H", today)
	nPart = datePart("N", today)
	sPart = datePart("S", today)
	
	if len(hPart)<2 then
		hPart = "0" & hPart
	end if
	
	if len(nPart)<2 then
		nPart = "0" & nPart
	end if
	
	if len(sPart)<2 then
		sPart = "0" & sPart
	end if
	
	getNow = hPart & nPart & sPart
end function

function checkDate(arg)
	dim	sDate
	
	sDate = left(arg, 4) & "-" & mid(arg, 5, 2) & "-" & right(arg, 2)
	checkDate = isDate(sDate)
end function


function formatDigit(str)
	formatDigit = formatNumber(str, 0, -1)
end function