Find dates this week?

[Charles Fowler]

I'm starting to build a script that performs a find on a group of records and produces only those records with dates within this week, or next week.

I wonder if anyone might have a suggestion, before I re-invent the wheel - I'd be very glad of any guidance at all.

Many thanks,

CF

[-Queue-]

Allow User Abort [Off]

Set Error Capture [On]

Enter Find Mode [ ]

Set Field [datefield; Let([ D = Get(CurrentDate); W = DayOfWeek(D)]; D - W + 1 & "..." & D + 14 - W )]

Perform Find [ ]

If [not Get(FoundCount)]

Show Custom Dialog ["No records could be found."]

Show All Records

End If

This will find all records from Sunday of the current week to Saturday of the following one.