idateutils.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'iDateUtils.pas' rev: 6.00

#ifndef iDateUtilsHPP
#define iDateUtilsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iMath.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Idateutils
{
//-- type declarations -------------------------------------------------------
//-- var, const, procedure ---------------------------------------------------
static const Shortint DaysPerWeek = 0x7;
static const Shortint WeeksPerFortnight = 0x2;
static const Shortint MonthsPerYear = 0xc;
static const Shortint YearsPerDecade = 0xa;
static const Shortint YearsPerCentury = 0x64;
static const Word YearsPerMillennium = 0x3e8;
static const Shortint DayMonday = 0x1;
static const Shortint DayTuesday = 0x2;
static const Shortint DayWednesday = 0x3;
static const Shortint DayThursday = 0x4;
static const Shortint DayFriday = 0x5;
static const Shortint DaySaturday = 0x6;
static const Shortint DaySunday = 0x7;
static const Shortint HoursPerDay = 0x18;
static const Word MinsPerDay = 0x5a0;
static const int SecsPerDay = 0x15180;
static const int MSecsPerDay = 0x5265c00;
static const Extended OneHour = 4.166667E-02;
static const Extended OneMinute = 6.944444E-04;
static const Extended OneSecond = 1.157407E-05;
static const Extended OneMillisecond = 1.157407E-08;
extern PACKAGE Word DaysPerYear[2];
static const Word RecodeLeaveFieldAsIs = 0xffff;
extern PACKAGE double ApproxDaysPerMonth;
extern PACKAGE double ApproxDaysPerYear;
extern PACKAGE Word __fastcall YearOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall MonthOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall DayOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall HourOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall MinuteOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall SecondOf(const System::TDateTime AValue);
extern PACKAGE Word __fastcall MilliSecondOf(const System::TDateTime AValue);
extern PACKAGE System::TDateTime __fastcall IncYear(const System::TDateTime AValue, const int ANumberOfYears = 0x1);
extern PACKAGE System::TDateTime __fastcall IncWeek(const System::TDateTime AValue, const int ANumberOfWeeks = 0x1);
extern PACKAGE System::TDateTime __fastcall IncDay(const System::TDateTime AValue, const int ANumberOfDays = 0x1);
extern PACKAGE System::TDateTime __fastcall IncHour(const System::TDateTime AValue, const __int64 ANumberOfHours = 0x000000001);
extern PACKAGE System::TDateTime __fastcall IncMinute(const System::TDateTime AValue, const __int64 ANumberOfMinutes = 0x000000001);
extern PACKAGE System::TDateTime __fastcall IncSecond(const System::TDateTime AValue, const __int64 ANumberOfSeconds = 0x000000001);
extern PACKAGE System::TDateTime __fastcall IncMilliSecond(const System::TDateTime AValue, const __int64 ANumberOfMilliSeconds = 0x000000001);
extern PACKAGE bool __fastcall TryEncodeDateTime(const Word AYear, const Word AMonth, const Word ADay, const Word AHour, const Word AMinute, const Word ASecond, const Word AMilliSecond, /* out */ System::TDateTime &AValue);
extern PACKAGE System::TDateTime __fastcall RecodeYear(const System::TDateTime AValue, const Word AYear);
extern PACKAGE System::TDateTime __fastcall RecodeMonth(const System::TDateTime AValue, const Word AMonth);
extern PACKAGE System::TDateTime __fastcall RecodeDay(const System::TDateTime AValue, const Word ADay);
extern PACKAGE System::TDateTime __fastcall RecodeHour(const System::TDateTime AValue, const Word AHour);
extern PACKAGE System::TDateTime __fastcall RecodeMinute(const System::TDateTime AValue, const Word AMinute);
extern PACKAGE System::TDateTime __fastcall RecodeSecond(const System::TDateTime AValue, const Word ASecond);
extern PACKAGE System::TDateTime __fastcall RecodeMilliSecond(const System::TDateTime AValue, const Word AMilliSecond);
extern PACKAGE System::TDateTime __fastcall RecodeDate(const System::TDateTime AValue, const Word AYear, const Word AMonth, const Word ADay);
extern PACKAGE System::TDateTime __fastcall RecodeTime(const System::TDateTime AValue, const Word AHour, const Word AMinute, const Word ASecond, const Word AMilliSecond);
extern PACKAGE System::TDateTime __fastcall RecodeDateTime(const System::TDateTime AValue, const Word AYear, const Word AMonth, const Word ADay, const Word AHour, const Word AMinute, const Word ASecond, const Word AMilliSecond);
extern PACKAGE bool __fastcall TryRecodeDateTime(const System::TDateTime AValue, const Word AYear, const Word AMonth, const Word ADay, const Word AHour, const Word AMinute, const Word ASecond, const Word AMilliSecond, /* out */ System::TDateTime &AResult);
extern PACKAGE void __fastcall InvalidDateTimeError(const Word AYear, const Word AMonth, const Word ADay, const Word AHour, const Word AMinute, const Word ASecond, const Word AMilliSecond, const System::TDateTime ABaseDate = 0.000000E+00);

}	/* namespace Idateutils */
using namespace Idateutils;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// iDateUtils