Create a Date/Time Wave from Text Waves

// Creates a date/time wave from a date wave stored as text in YYYY-MM-DD format
// and a time wave stored as text in HH:MM:YY format.
// Example:
//		Make/O/T wDateAsText = {"2016-08-15", "2016-08-15"}
//		Make/O/T wTimeAsText = {"19:01:00", "19:01:18"}
//		TextWavesToDateTimeWave(wDateAsText, wTimeAsText, "wDateTime")
//		Edit wDateTime

Function ConvertTextToDateTime(dateAsText, timeAsText)
	String dateAsText		// Assumed in YYYY-MM-DD format
	String timeAsText		// Assumed in HH:MM:DD format
	
	Variable dt
	Variable year, month, day
	sscanf dateAsText, "%d-%d-%d", year, month, day
	dt = Date2Secs(year, month, day)
	
	Variable timeOfDay
	Variable hour, minute, second
	sscanf timeAsText, "%d:%d:%d", hour, minute, second
	timeOfDay = 3600*hour + 60*minute + second
	
	dt += timeOfDay
	
	return dt
End

Function/WAVE TextWavesToDateTimeWave(dateAsTextWave, timeAsTextWave, outputWaveName)
	WAVE/T dateAsTextWave		// Assumed in YYYY-MM-DD format
	WAVE/T timeAsTextWave		// Assumed in HH:MM:DD format
	String outputWaveName

	Variable numPoints = numpnts(dateAsTextWave)
	Make/O/D/N=(numPoints) $outputWaveName
	WAVE wOut = $outputWaveName
	SetScale d, 0, 0, "dat", wOut
	
	Variable i
	for(i=0; i<numPoints; i+=1)
		String dateAsText = dateAsTextWave[i]
		String timeAsText = timeAsTextWave[i]
		Variable dt = ConvertTextToDateTime(dateAsText, timeAsText)
		wOut[i] = dt	
	endfor	
	
	return wOut
End