【正文】 al buf=39。12345639。 C eval buf=%xlate(from:to:buf) C buf dsply Buf顯示為:abc 56 /*4被空格替代*/當(dāng)to的定義長(zhǎng)度大于實(shí)際賦值長(zhǎng)度時(shí)會(huì)出現(xiàn)這種情況：Dfrom s 30A Dto s 3 A Dbuf s 40A C eval from=39。123439。 C eval to=39。abc39。 C eval buf=39。12345639。 C eval buf=%xlate(from:to:buf) C buf dsply Buf顯示為:abc456 /*4未被空格替代*/實(shí)際上from和to之間的位數(shù)是一一對(duì)應(yīng)的。假如from=’1234’,to=’abc’1――a2――b3――c4的對(duì)應(yīng)情況比較復(fù)雜，分兩種情況當(dāng)%len(to) == %len(%trim(to))時(shí) 4――無(wú)對(duì)應(yīng)當(dāng)%len(to) %len(%trim(to))時(shí)4――空格假如from=’12’,to=’abc’1――a2――bTo中的c有from中的誰(shuí)來(lái)對(duì)應(yīng)呢？分兩種情況當(dāng)%len(from) == %len(%trim(from))時(shí) c――無(wú)對(duì)應(yīng)當(dāng)%len(from) %len(%trim(from))時(shí)c――空格Dchar1 s 10a inz(*blank) varying Dchar2 s 10a inz(*blank) Dto s 3a inz(*zero ) Dfrom s 2a inz(*zero ) Dint s 10i 0 inz(*zero ) C eval char1=39。abcoobb39。 C eval from=39。1239。 C eval to=39。abc39。 C eval char1=%xlate(from:to:39。12 214539。) C char1 dsply C eval *inlr=39。139。 C return 此時(shí)char1顯示為:ab ba45當(dāng)from有如下定義時(shí)Dfrom s 3a inz(*zero ) Char1顯示為：abcba45 和日期有關(guān)的函數(shù)%date (expression{:dateformat})}:將表達(dá)式的值由字符、數(shù)字或時(shí)間戳記數(shù)據(jù)轉(zhuǎn)換成日期型, 第一個(gè)參數(shù)是要轉(zhuǎn)換的值。如果不出現(xiàn)任何參數(shù)，則 %DATE 返回當(dāng)前系統(tǒng)日期。對(duì)于字符或數(shù)字輸入，第二個(gè)參數(shù)是日期格式。無(wú)論輸入具有什么樣的格式，輸出總是以 *ISO 格式返回。注意：當(dāng)被轉(zhuǎn)換的表達(dá)式的值沒(méi)有任何分隔符時(shí)，則使用具體的dateformat加”0”的方式實(shí)現(xiàn)格式轉(zhuǎn)換。如下：（1）．表達(dá)式?jīng)]有任何分隔符Ddatestr s 10a inz(39。2006082139。)Ddate s dC eval date=%date(datestr:*iso0)C date dsply（2）.表達(dá)式有分隔符。Date－format假設(shè)是*ISO,則默認(rèn)為”“Ddatestr s 10a inz(39。2006082139。)Ddate s dC eval date=%date(datestr:*iso)C date dsply（3）.%date()不指定任何參數(shù)，則返回系統(tǒng)日期(*ISO )Ddate s dC eval date=%date()C date dsplyDatefromat的格式共有如下幾種：RPG名稱(chēng) 描述 格式（缺省分隔符） 有效分隔符 Length 示例 *MDY 月/日/年 mm/dd/yy / . , 39。amp。39。 8 01/15/91 *DMY 日/月/年 dd/mm/yy / . , 39。amp。39。 8 15/01/91 *YMD 年/月/日 yy/mm/dd / . , 39。amp。39。 8 91/01/15 *JUL 儒略歷 yy/ddd / . , 39。amp。39。 6 91/015 *ISO 國(guó)際標(biāo)準(zhǔn)組織 yyyymmdd 10 19910115 *USA IBM USA 標(biāo)準(zhǔn) mm/dd/yyyy / 10 01/15/1991 *EUR IBM 歐洲標(biāo)準(zhǔn) . 10 *JIS 日本工業(yè)標(biāo)準(zhǔn)公元紀(jì)元 yyyymmdd 10 19910115%TIME{(expression{:timeformat})}:將表達(dá)式的值由字符、數(shù)字或時(shí)間戳記數(shù)據(jù)轉(zhuǎn)換成時(shí)間型。轉(zhuǎn)換后的值保持不變，但是作為時(shí)間返回。第一個(gè)參數(shù)是要轉(zhuǎn)換的值。如果不指定任何參數(shù)，則 %TIME 返回當(dāng)前系統(tǒng)時(shí)間。對(duì)于數(shù)字或字符輸入，第二個(gè)參數(shù)是時(shí)間格式。無(wú)論輸入具有什么樣的格式，輸出總是以 *ISO 格式返回。Timeformat的格式 ：RPG 名稱(chēng) 描述 格式（缺省分隔符） 有效分隔符 Length 示例 *HMS 小時(shí):分鐘:秒 hh:mm:ss : . , amp。 8 14:00:00 *ISO 國(guó)際標(biāo)準(zhǔn)組織 . 8 *USA IBM USA 標(biāo)準(zhǔn)。AM 和 PM 可以是大寫(xiě)和小寫(xiě)的任意混合。 hh:mm AM or hh:mm PM : 8 02:00 PM *EUR IBM 歐洲標(biāo)準(zhǔn) . 8 *JIS 日本工業(yè)標(biāo)準(zhǔn)公元紀(jì)元 hh:mm:ss : 8 14:00:00%years (number)%months(number)%days(number)%hours(number)%minutes(number)%seconds(number)%mseconds(number)Ddate s d Dtime s t C eval date=%date( ) C date dsply C eval time=%time() C time dsply C eval date=date+%years(2)+%months(13) C +%days(10) C date dsply C eval time=time+%hours(3)+%minutes(30) C +%seconds(30) C time dsply 將數(shù)字轉(zhuǎn)換成可以添加到日期或時(shí)間戳記值的持續(xù)時(shí)間。左邊的值必須是日期或時(shí)間戳記。結(jié)果是加上或減去了適當(dāng)年數(shù)的日期或時(shí)間戳記值.注意:日期經(jīng)過(guò)加減運(yùn)算后具有不可逆性如Date＝20060831Eval date=date+%months(1)%months(1)現(xiàn)在date的值是:20060830%SUBDT(value:*MSECONDS|*SECONDS|*MINUTES|*HOURS|*DAYS|*MONTHS|*YEARS)%SUBDT(value:*MS|*S|*MN|*H|*D|*M|*Y)%subdt: 抽取日期、時(shí)間或時(shí)間戳記的一部分，并返回。第一個(gè)參數(shù)是日期、時(shí)間或時(shí)間戳記值。 第二個(gè)參數(shù)是要抽取的部分。對(duì)于日期：*DAYS、*MONTHS 和 *YEARS 對(duì)于時(shí)間：*SECONDS、*MINUTES 和 *HOURS 對(duì)于時(shí)間戳記：*MSECONDS、*SECONDS、*MINUTES、*HOURS、*DAYS、*MONTHS 和 *YEARS對(duì)于此函數(shù)，*DAYS 總是指一個(gè)月中的天而不是一年中的天（即使使用儒略日期格式亦如此）。例如，2 月 10 日的天部分是 10 而不是 41。此函數(shù)總是返回 4 位的年份，即使日期格式使用 2 位的年份亦如此。如：Ddate s d inz(D’2006821’)Dtime s t inz(T’’)Dnum s 8p 0C eval num=%subdt(date:*years)C*num=2006C eval num=%subdt(date:*days)C*num=21C eval num=%subdt(time:*hours)C*num=22C eval num=%subdt(time:*minutes)C*num=58SUBDUR 操作可用來(lái)：減去持續(xù)時(shí)間以建立新的“日期”、“時(shí)間”或“時(shí)間戳記” 計(jì)算持續(xù)時(shí)間Subdur操作碼的用法：Ddate1 s d inz(D39。2006082139。)Ddate2 s d Dyy s 2p 0 inz(2) Dmm s 2p 0 inz(2) Ddd s 2p 0 inz(10) C date1 dsply C date1 subdur yy:*y date2 C date1 subdur