{ Function: _DateTime Purpose: Create text string of Bar Date, Bar Tim, BarNumber e and computer time (hh:mm:ss) in format: "12/31/09 1314 Bar = 1234 16:14:23 " Author: MarkSanDiego Last Updated: 12/28/13 original version } vars: DateTime(0), Hours(0), Mins(0), Secs(0); DateTime = ComputerDateTime; Secs = FracPortion(DateTime) * ( 24 * 3600 ) ; Hours = IntPortion( Secs / 3600 ) ; Mins = IntPortion ( ( Secs - ( Hours * 3600 ) ) / 60 ) ; Secs = Secs - ( Hours * 3600 ) - ( Mins * 60 ) ; _DateTime = ELDateToString(Date) & " " & RightStr("000" & NumToStr(Time,0), 4) & " Bar = " & NumToStr(BarNumber,0) & " " & RightStr("0" & NumToStr(Hours,0), 2) + ":" & RightStr("0" & NumToStr(Mins,0), 2) + ":" & RightStr("0" & NumToStr(Secs, 0), 2) & " ";