date problems

["Shipley, Lisa A." <lshipley@SEWSUS.COM>]

Oracle 7.3.4
SQR 4.3.4

Good Afternoon,

I'm trying to subtract 1 day from a value that a user keys in.  I've done
this before in other programs, but for some reason, I can't get it to work
today.

INPUT $BegDate 'Enter begin date (DD-Mon-YYYY)' type=char maxlen=11
IF rtrim($BegDate, ' ') = ''
   goto Done
END-IF

let $BDate = strtodate($BegDate, 'DD-MON-YYYY')
DISPLAY '$BDate ' Noline
Display $Bdate

do convert-to-dtu-date($BDate,$DATE_OUT)



The output for $DATE_OUT is 2001--24.  It's leaving the month DEC out.  I
can't for the life of me figure out why.

Any help is GREATLY appreciated!!!!!

Lisa Shipley
Senior Programmer
Sumitomo Electric Wiring Systems, Inc.
Phone: (270) 782-7397 Ext. 2226