Deconstruct date/time value into its component parts

// Deconstructs an Igor date/time value (seconds since 1904-01-01) into
// its component parts (year, month, dayOfMonth, etc.).
// Because it uses pass-by-reference parameters, this function can be called
// only from another user-defined function. See the Demo function below for usage.

Function DeconstructDate(dt, year, month, dayOfMonth, dayOfWeek, hour, minute, second)
	Variable dt					// Input date/time value
	Variable& year				// Output
	Variable& month			// Output
	Variable& dayOfMonth		// Output
	Variable& dayOfWeek		// Output
	Variable& hour				// Output
	Variable& minute			// Output
	Variable& second			// Output
	
	String shortDateStr
	
	shortDateStr = Secs2Date(dt, -1)		// <day-of-month>/<month>/<year> (<day of week>)
	
	sscanf shortDateStr, "%d/%d/%d (%d)", dayOfMonth, month, year, dayOfWeek
	
	Variable time = mod(dt, 24*60*60)	// Get the time component of the date/time
	
	hour = trunc(time/(60*60))			// Get hour
	time -= hour * 60 * 60					// Remove hour component
	
	minute = trunc(time/60)				// Get minute
	time -= minute * 60					// Remove minute component
	
	second =  time	
End

Function Demo()
	Variable dt = datetime		// Right now
	Variable year, month, dayOfMonth, dayOfWeek, hour, minute, second
	DeconstructDate(dt, year, month, dayOfMonth, dayOfWeek, hour, minute, second)
	Printf "year=%d, month=%d, dayOfMonth=%d, hour=%d, minute=%d, second=%d\r", year, month, dayOfMonth, hour, minute, second
End