blob: 18b6b0bd237c9591a57d7d2c6a784f323bbdc55d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example93;
{ This program demonstrates the RecodeMilliSecond function }
Uses SysUtils,DateUtils;
Const
Fmt = 'dddd dd mmmm yyyy hh:nn:ss.zzz';
Var
S : AnsiString;
Begin
S:=FormatDateTime(Fmt,RecodeMilliSecond(Now,0));
Writeln('This moment, milliseconds stripped : ',S);
End.
|
