Class TsDate (unit sDate)

Inherits from

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);

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;



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;