fpcsrc/tests/webtbs/tw1867.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

uses SysUtils;

var
  s : string;
begin
  s:=formatdatetime ('hh:nn:ss.zzz', encodetime (12, 30, 44, 4));
  writeln(s);
  if s<>'12:30:44.004' then
   begin
     writeln('ERROR!');
     halt(1);
   end;
end.