fpcdocs/datutex/ex4.pp


1
2
3
4
5
6
7
8
9

Program Example4;

{ This program demonstrates the IsPM function }

Uses SysUtils,DateUtils;

Begin
  Writeln('Current time is PM : ',IsPM(Now));
End.