Dear all,
i would like to know how can i transfer a date from format ddmmyyyy to cddmmyy ??
Thanks
i would like to know how can i transfer a date from format ddmmyyyy to cddmmyy ??
Thanks
D t_audit_date s 8p 0 D t_audit_time s 6p 0 D #TimeDate DS D #Time 1 6 0 D #Date 7 14 0 D #CYMD S D DATFMT(*ISO) C time TimeStamp 14 0 C move TimeStamp #TimeDate C * USA move #Date #CYMD C move #cymd wrkdate 8 0 C move wrkdate t_audit_date C move #time t_audit_time
D Todays_Date_C DS 8 D Todays_Date 8 0 Overlay(Todays_Date_C) D Curr_Date s D inz(*sys) /free Todays_Date_C = %subst(%Char(Curr_Date):1:4) + %subst(%Char(Curr_Date):6:2) + %subst(%Char(Curr_Date):9:2);
h DATEDIT(*YMD) D HMDATE S 8A D HMTIME S 6S 0 c move *Date HMDATE c TIME HMTIME
D t_audit_date s 8p 0 D t_audit_time s 6p 0 D TimeStamp s z /FREE TimeStamp = %timestamp(); t_audit_date = %dec(%date(Timestamp):*ISO); t_audit_time = %dec(%time(Timestamp):*HMS);
D Todays_Date s 8 0 D Curr_Date s D inz(*sys) /free Todays_Date = %dec(Curr_Date:*ISO);
D HMDATE S 8A D HMTIME S 6S 0 D TS S Z *======================================================= /free TS = %timestamp(); HMDATE = %char(%date(TS):*ISO0); HMTIME = %dec(%time(TS):*HMS);
* Legacy Date and Time Handling Cheat Sheet D TS s z D Date s d D CCYYMMDD_n s 8 0 D YYMMDD_n s 6 0 D CYYMMDD_n s 7 0 D MMDDYY_n s 6 0 D D CCYYMMDD_c s 8 D YYMMDD_c s 6 D CYYMMDD_c s 7 D MMDDYY_c s 6 D HHMMSS_n s 6 D HHMMSS_c s 6 /free //=== Legacy Date & Time Stamps - from System Clock === TS = %timestamp(); //--- Set Numeric Legacy Date Fields --- CCYYMMDD_n = %dec(%date(TS): *ISO); YYMMDD_n = %dec(%date(TS): *YMD); CYYMMDD_n = %dec(%date(TS): *CYMD); MMDDYY_n = %dec(%date(TS): *MDY); //--- Set Character Legacy Date Fields --- CCYYMMDD_c = %char(%date(TS): *ISO0); YYMMDD_c = %char(%date(TS): *YMD0); CYYMMDD_c = %char(%date(TS): *CYMD0); MMDDYY_c = %char(%date(TS): *MDY0); //--- Set Legacy Time Fields --- HHMMSS_n = %dec(%time(TS): *HMS); HHMMSS_c = %char(%time(TS): *HMS0); //=== Legacy Date Stamp from Job Date === CCYYMMDD_n = %dec(%date(*DATE): *ISO); CCYYMMDD_c = %char(%date(*DATE): *ISO0); //=== Converting Legacy Dates to True Dates === //--- True date from numeric fields --- Date = %date(122507: *MDY); Date = %date(251207: *DMY); Date = %date(071225: *YMD); Date = %date(12252007: * USA ); Date = %date(25122007: *EUR); Date = %date(20071225: *ISO); //--- True date from character fields, no separators --- Date = %date('122507': *MDY0); Date = %date('251207': *DMY0); Date = %date('071225': *YMD0); Date = %date('12252007': *USA0); Date = %date('25122007': *EUR0); Date = %date('20071225': *ISO0); //--- True date from character fields with separators --- Date = %date('12/25/07': *MDY); Date = %date('25/12/07': *DMY); Date = %date('07/12/25': *YMD); Date = %date('12/25/2007': * USA ); Date = %date('25.12.2007': *EUR); Date = %date('2007-12-25': *ISO);
Comment