The LA Fox DeveloDer Newsletter

Auaust 1998

Y2K (Con’t from page 1)

Date; Select All on Entry

This textbox date entry class does the following:

1.

Allows blank dates

2.

Invalid dates

2.1

Displays wait window “Invalid date”

- Accepts 02/29/2000, not 02/29/00

2.2

Will not allow dates before 1900 or after 2100

- Resets to blank

3.

Adds 100 years to any date less than 1920

4.

Status bar (while in field)

4.1

Displays date value, with month in words

- Correct order for Windows date setting

- Refreshes on entry of each digit

4.2

Displays “bad date” as appropriate

4.3

Displays message if date < 1900 or >2100

5.

Tool tip

5.1

“Original date: “+date, month in words, while in field

5.2

Date, month in words, after field has been left

* CLASS DateTextBox.InteractlveChangeO

* Author/Date: Judy Denison 06/26/98

a Description: Sets running status bar display

*

Parameters: None

*

Variables:

a

IcDate

Long date; e.g.: June 26, 1998

a

IdDate

Date In date format

* Returns:

None

Uses:

None

a calls: None

*

Called by: None

LOCAL

lcDate, IdDate

STORE” TO

lcDate

STORE 0 TO

IdDate

a Find correct date, referring to rollover year

WiTH THIS

IF NOT EMPTY(.Value);

AND YEAR(.Value) < .nRolloverYear

IdDate = GOMONTH(.Value, 1200)

aSE

IdDate = Value

ENDIF

ENDWITH

* Long date In Canadian word order If appropriate

a (Canadian settings should be ‘DMY’)

IcDate = IIF(SET(’DATE’) = ‘DMY’,;

DMY(IdDate),

MDY(ldDate))

SET MESSAGE TO lcDate

RflURN

a Author/Date: Judy Denison 06/26/98

a Description: Checks for reasonable year; sets to 21st

*

century if before rollover year

* Parameters: None

a Variables: None

*

lcNotify Original setting of SET NOTIFY

a

lnYear

Year of currently entered date

a Returns: .TJ.F.

* Uses:

None

* Calls: None

* Called by: None

LOCAL

lcNotlfy, lnYear

STORE” TO lcNotlfy

STORE 0 TO lnYear

WiTH THIS

Get old NOTIFY setting

IcNotify = .cNotify

*0K if empty

IF EMPTY(.Value)

.Value = (ll}

a Reset all and leave field

SET MESSAGE TO

.ToolTipText “

SET NOTIFY &lcNotify

RETURN .T.

Reset & message if year

* not between 1900 and 2100

lnYear • YEAR(.Value)

IF InYear < 1900 OR lnYear> 2100

.Value = (II)

SET MESSAGE TO;

‘Year must be between

+

‘1900 and 2100.’

RETURN .F.

ENDF

Go to 21st century If c Rollover Year

IF lnYear c .nRolloverYear

.Value = GOMONTH(.Value, 1200)

ENDIF

* ToolTip: Long date In Canadian word order

* If appropriate

.ToolTipText lIF(SET(’DATE’) = ‘DMY’,;

DMY(.Value),

MDY(.Value))

* Remove status message on leaving field

SET MESSAGE TO

a Restore NOTIFY to original setting

SET NOTIFY &lcNotify

ENDWITH

RETURN.T.

a End: CLASS DateTextBox.Valid()

a End: CLASS DateTextBox.InteractlveChange()

*

CLASS DateTextBox.When()

CLASS DateTextBox.Valid()

(Con’t, page 5)