Time2Str Function
Returns the Time Portion as a string HH:MM with time separator from the Regional Settings.

Unit
QESBPCSDateTime

Declaration
Function Time2Str(const DT: TDateTime): string;

Description
If ESBBlankWhenZero is true and DT is Zero, then an Empty String will be returned.

If an error occurs an Empty String is Returned. If ESBRaiseDateError is true then an Exception is raised if a Time Conversion error occurs.

Parameters
DT Date/Time to Convert.

Category
Date/Time Conversion Routines

Implementation

function Time2Str (const DT: TDateTime): string;
var
     Hrs, Mins, Secs, MSecs: Word;
     Hold: Boolean;
begin
     try
          if ESBBlankWhenZero and (abs (DT) < OneDTMilliSecond) then
               Result := ''
          else
          begin
               ESBDecodeTime (DT, Hrs, Mins, Secs, MSecs);
               Hold := ESBBlankWhenZero;
               ESBBlankWhenZero := False;
               try
                    Result := Int2EStr (Hrs) + TimeSeparator
                         + Int2ZStr (Mins, 2);
               finally
                    ESBBlankWhenZero := Hold;
               end;
          end;
     except
          Result := '';
          if ESBRaiseDateError then
               raise;
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com