Re: Entering a Date Range in an Array

[Greg Rabinovich <odecca25@YAHOO.COM>]

Just created this code - seems to be working fine.
You need to include datemath.sqc .

BEGIN-PROCEDURE PROCESS-MAIN

    LET #NUM_DAYS = 365
    LET $START_DATE = '2002-02-02'
    LET $END_DATE = '2002-06-06'

     create-array name=DatesArray size=365
     field=Date_Field:char

  LET #I = 1
  WHILE #I < #NUM_DAYS
        LET $NEW_DATE = ''
        do DTU-ADD-DAYS($START_DATE, #I, $NEW_DATE)
                IF $NEW_DATE <> '' AND $NEW_DATE <
$END_DATE
                        PUT $NEW_DATE INTO
DatesArray(#I)
                END-IF
  LET #I = #I + 1
  END-WHILE


  LET #J = 1
  WHILE #J < #NUM_DAYS
        get $DATE_IN  from DatesArray(#j)
        show $date_in
  LET #J = #J + 1
  END-WHILE

end-procedure



--- "Benzenhafer, Dave"
<DBenzenhafer@HOUSTON.DEEPWATER.COM> wrote:
> What I am trying to do is to specify a date range
> and populate a field in an
> array with the dates sequentially. Would you use a
> char field for this?
>
> Dave Benzenhafer
>
>
> -----Original Message-----
> From: Bruce Kelling
> [mailto:Bruce_Kelling@ADVANTECHSOLUTIONS.COM]
> Sent: Tuesday, August 13, 2002 2:03 PM
> To: SQR-USERS@list.iex.net
> Subject: Re: Entering a Date Range in an Array
>
>
> The easiest way to use dates in an array is with
> data type = char.  You can
> use to_char() function to format data any way you
> like.  'YYYYMMDD' can
> easily be compared to a given date range, also in
> the same format.
>
> Bruce
> -----Original Message-----
> From: Benzenhafer, Dave
> [mailto:DBenzenhafer@HOUSTON.DEEPWATER.COM]
> Sent: Tuesday, August 13, 2002 2:45 PM
> To: SQR-USERS@list.iex.net
> Subject: Entering a Date Range in an Array
>
> Does anyone have an easy way to enter the dates of a
> date range in an array
> date field?
>
> Example Jan 1, 2002 to July 31, 2002
> Using SQR 4.3.4
>
> Dave Benzenhafer
> EMPAC Custom Report Writer
> 601-792-4857  601-7146970
> dbenzenhafer@houston.deepwater.com


__________________________________________________
Do You Yahoo!?
HotJobs - Search Thousands of New Jobs
http://www.hotjobs.com