[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

585.0. "Date 7 days ago?" by UBOHUB::FARRANTL (Lee Farrant) Thu Aug 11 1994 06:40

    Hello                   
    
    	How do I get the date 7 days ago?
    
    	I would like to extract data on a weekly basis.
    
    	Lee
    
    	Thanks 
    
    
    	Also, does anyone use Focus in Viables,Basingstoke,UK @UVO
    	so I can annoy them?
T.RTitleUserPersonal
Name		DateLines
585.1MKODEV::PETROPHCosmic remnantThu Aug 11 1994 12:3736
    
------------------------------------------------------------------------
* TEMP.FEX
------------------------------------------------------------------------
-SET MM = EDIT(&DATE,'99$$$$$$');
-SET DD = EDIT(&DATE,'$$$99$$$');
-SET YY = EDIT(&DATE,'$$$$$$99');
-*                    mm/dd/yy
-SET TO_DAY = EDIT(&MM||&DD||&YY);
-SET NEW_DAY = CHGDAT('I6MDY', 'I6YMD', &TO_DAY, NEW_DAY);
-SET BEG_TMP = AYMD(&NEW_DAY,-7,'I6YMD');
-SET BEG_DAY = CHGDAT('I6YMD', 'I6MDY', &BEG_TMP, BEG_DAY);
-RUN
-TYPE 
-TYPE Original date  &TO_DAY
-TYPE 
-TYPE Seven days ago &BEG_DAY
-TYPE  YYMMDD format &BEG_TMP
-TYPE 
-RUN
END
------------------------------------------------------------------------
* OUTPUT
------------------------------------------------------------------------
>>EX TEMP
>
Original date  081194

Seven days ago 080494
 YYMMDD format 940804

>>>>

------------------------------------------------------------------------

Regards, Rich
585.2ELMAGO::AWILLETOR U Green?Fri Aug 12 1994 16:3211
Or try:

-*************************
-* 7daysago.fex
-*************************
-SET &BEG_DT = AYMD( &YMD, -7, I6 );
-SET &END_DT = AYMD( &YMD, 0 , I6 );
-TYPE
-TYPE TODAY'S DATE : &END_DT
-TYPE
-TYPE   7 DAYS AGO : &BEG_DT