| Class TsDate (unit sDate) |
TObject
| Constructors |
| Functions |
function DaysInMonth(nMonth : Integer): Integer;
function GetIndexFromDate : Integer;
function GetMonthBegin: Integer;
function IsLeapYear: Boolean;
procedure NextDay;
procedure NextMonth;
procedure NextWeek;
procedure NextYear;
procedure PrevDay;
procedure PrevMonth;
procedure PrevWeek;
procedure PrevYear;
procedure SetDate(nDays : Integer);
function GetAsDateTime: TDateTime;
function GetAsString: String;
function GetIsNull: Boolean;
procedure LoadDateArray;
procedure SetAsDateTime( Value: TDateTime);
procedure SetAsString(Value: String);
procedure SetBeginingOfWeek(Value: Integer);
procedure SetCalendar(Value: Boolean);| Properties |
property AsDateTime : TDateTime
property AsString : String
property BeginingOfWeek : Integer
property Calendar : Boolean
property CurrentDateIndex : Integer
property DateArray : TDateArrayType
property Day : Word
property IsNull : Boolean
property Month : Word
property PreviousDateIndex : Integer
property Reloaded : Boolean
property Year : Word| Events |
event OnDateChange : TNotifyEvent| Variables |
FBeginingOfWeek : Integer;
FCalendar : Boolean;
FCurrentDateIndex : Integer;
FDateArray : TDateArrayType;
FDay : Word;
FMonth : Word;
FOnDateChange : TNotifyEvent;
FPreviousDateIndex : Integer;
FReloaded : Boolean;
FYear : Word;| Constructors |
| Functions |
function DaysInMonth(nMonth : Integer): Integer;
function GetIndexFromDate : Integer;
function GetMonthBegin: Integer;********************************************************
function IsLeapYear: Boolean;
procedure NextDay;
procedure NextMonth;
procedure NextWeek;
procedure NextYear;
procedure PrevDay;
procedure PrevMonth;
procedure PrevWeek;
procedure PrevYear;
procedure SetDate(nDays : Integer);
function GetAsDateTime: TDateTime;
function GetAsString: String;
function GetIsNull: Boolean;
procedure LoadDateArray;
procedure SetAsDateTime( Value: TDateTime);
procedure SetAsString(Value: String);
procedure SetBeginingOfWeek(Value: Integer);leap-year Feb is special
procedure SetCalendar(Value: Boolean);trying to assume separator...
| Properties |
property AsDateTime : TDateTime
property AsString : String
property BeginingOfWeek : Integer
property Calendar : Boolean
property CurrentDateIndex : Integer
property DateArray : TDateArrayType
property Day : Word
property IsNull : Boolean
property Month : Word
property PreviousDateIndex : Integer
property Reloaded : Boolean
property Year : Word| Events |
event OnDateChange : TNotifyEvent| Variables |
FBeginingOfWeek : Integer;
FCalendar : Boolean;
FCurrentDateIndex : Integer;
FDateArray : TDateArrayType;
FDay : Word;
FMonth : Word;
FOnDateChange : TNotifyEvent;
FPreviousDateIndex : Integer;
FReloaded : Boolean;
FYear : Word;