home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / unity / d56 / DW / DW10242.ZIP / DateWorks.pas < prev    next >
Pascal/Delphi Source File  |  2002-04-21  |  496b  |  24 lines
  1. (*-------------------------------NumWorks.pas--------------------------
  2.  V1.0.1   - 16.04.2002 initial release
  3.   --------------------------------------------------------------------- *)
  4. unit DateWorks;
  5.  
  6. interface
  7.  
  8. function DayOfYear (ADate : TDateTime): Integer;
  9.  
  10. implementation
  11.  
  12. uses SysUtils;
  13.  
  14. function DayOfYear (ADate : TDateTime): Integer;
  15. var
  16.    y,m,d : Word;
  17. begin
  18.    DecodeDate(ADate,y,m,d);
  19.    result := Trunc(ADate) - Trunc(EncodeDate (y, 1, 1)) + 1;
  20. end;
  21.  
  22.  
  23. end.
  24.