function DateTimeToStr2(dt: TDateTime; daySep: string): string;
begin
  Result := Format('%d%s%s', [Trunc(dt), daySep, TimeToStr(dt)])
end;