home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_Datetime.int < prev    next >
Text File  |  2003-08-26  |  1KB  |  34 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {            MiTeC Datetime Routines                    }
  4. {           version 1.1 for Delphi 5,6                  }
  5. {                                                       }
  6. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. {$INCLUDE MITEC_DEF.INC}
  11.  
  12. unit MiTeC_Datetime;
  13.  
  14. interface
  15.  
  16. uses Windows, SysUtils;
  17.  
  18. function FormatSeconds(TotalSeconds :comp; WholeSecondsOnly: Boolean = True;
  19.                        DisplayAll: Boolean = False; DTFormat :Boolean = false) :string;
  20. function UTCToDateTime(UTC: DWORD): TDateTime;
  21. function DSTDate2Date(dstDate: TSystemTime; year: word): TDateTime;
  22. function FileTimeToDateTimeStr(FileTime: TFileTime): string;
  23. function FiletimeToDateTime(FT: FILETIME): TDateTime;
  24. function ParseDate(YYYYMMDD: string): TDatetime;
  25. {$IFNDEF D6PLUS}
  26. function DaysInMonth(const AValue: TDateTime): Word;
  27. function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek,
  28.   ADayOfWeek: Word): TDateTime;
  29. {$ENDIF}
  30.  
  31.  
  32. implementation
  33.  
  34.