'========================================

Function xGen_GetTimeStamp

	'This function generates a unique timestamp
	'Which is handy for use in filenames

	'Usage:
		'sTimeStamp = xGen_GetTimeStamp

	'Where
		'The returned value is of the form YYYYMMDDHHMISS
		'Note that single values are padded out with leading zeroes

	Dim sYYYY, sMM, sDD, sHH, sMI, sSS

	sYYYY = Year(Date)

	sMM = Right("0" & cStr(Month(Date)),2)

	sDD = Right("0" & cStr(Day(Date)),2)

	sHH = Right("0" & cStr(Hour(Time)),2)

	sMI = Right("0" & cStr(Minute(Time)),2)

	sSS = Right("0" & cStr(Second(Time)),2)

	xGen_GetTimeStamp = sYYYY & sMM & sDD & sHH & sMI & sSS

End Function

'========================================