程式中檢查是否潤年的新方法

2024-06-10 04:40:32

在實際的應用中，我們經常要檢查是否為潤年？一般情況我們都通過數字計算，下面提供一種簡單的方法，跟大家分享...

指令 CVTDAT 已經知道那一年是潤年, 只要將 "0229" 與二位數字年合併成 'mmddyy' 的格式,
當成指令 CVTDAT 的 DATE 參數值, 如果指令CVTDAT 傳回錯誤訊息 "CPF0555 日期錯誤或日期格式錯誤" ,
那表示此二位數字年非潤年, 如果無傳回錯誤訊息, 此二位數字年即潤年.

代码:
PGM (&YEAR)
DCL &YEAR *CHAR 2
DCL &MDY *CHAR 6

CHGVAR (&MDY) ('0229' *cat &YEAR)
CVTDAT DATE(&MDY) TOVAR(&MDY) FROMFMT(*MDY) TOFMT(*MDY) TOSEP(*NONE)
MONMSG CPF0555 EXEC(DO)
SNDMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('YEAR' *BCAT &YEAR *BCAT 'is not leap year') +
MSGTYPE(*COMP)
RETURN
ENDDO
SNDMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('YEAR' *BCAT &YEAR *BCAT 'is leap year') +
MSGTYPE(*COMP)
ENDPGM

转载于:https://www.cnblogs.com/wildfish/archive/2008/01/09/1031906.html

程式中檢查是否潤年的新方法相关推荐

中国量子计算再突破！复旦联合中科大给出拓扑量子计算新方法
10月17日凌晨,复旦大学和中国科学技术大学中科院微观磁共振重点实验室合作研究的最新成果发表在<自然·物理>(Nature Physics)杂志上.该研究利用自主创新研发的随机绝热法,首次 ...
Microbiome：环境样品中绝对定量菌群丰度的新方法
文章目录环境样品中微生物群落丰度的绝对定量写在前面摘要背景结果结论背景方法 P.E.F合成spikes的设计图 1 合成spike设计土壤样品的特征微生物学技术图 2 DNA提 ...
php checkmobile,如何在php中檢查請求是來自移動設備還是計算機
15 I am using a function to identify mobile browsers in my projects, which can detect almost all maj ...
一种从文本语义信息中抽取地理属性的社会感知新方法（内附公众号）
一篇增粉文: 请大家关注我的公众号,文末可以扫码: 协同感知与知识服务不定期推送GIS相关的研究,也可以与我交流. 给大家分享一篇最新录用在CEUS的一篇文章. 这篇文章的灵感来源于博士入学前的暑假 ...
ICCV2021 比MoCo更通用的对比学习范式，中科大MSRA提出对比学习新方法MaskCo
关注公众号,发现CV技术之美今日分享 ICCV2021论文『Self-Supervised Visual Representations Learning by Contrastive Mask P ...
介紹 Java 平台的 Jazzy：一種新的拼寫檢查器 APIzzzz
對於包含自然語言文件輸入的應用程式,使用者期望它具備拼寫檢查功能.因為從頭開始建構一個拼寫檢查器不是一項簡單的任務,所以這篇文章為您提供一個使用 Jazzy 的工作區.Jazzy 是一個開放原始程式碼 ...
php判断ipv6是否在范围内,[PHP] IPv6檢查IP是否在某個網段內 mtachcidr6
自動目錄由於 IPv4 可以轉成十進位用推移的運算,但是 IPv6 要轉成十進位的話,會超過有效位數的顯示,另外由於ipv6本身是用十六進位表示,沒必要換成10進位.所以要用更漂亮的作法.我把他寫成 ...
已知某班学生的英语成绩按学号(从1开始)从小到大的顺序排列在tab表中，要查的学生学号放在变量no中，查表结果放在变量english中。
已知某班学生的英语成绩按学号(从1开始)从小到大的顺序排列在tab表中, 要查的学生学号放在变量no中,查表结果放在变量english中. data segmenttab db 68,78,42,84 ...
检查坏道右键单击盘符/属性/工具中的查错。
检查坏道右键单击盘符/属性/工具中的查错. 7.windowsXP系统经常出现错误提示答:XP系统经常提示是否将错误报告发送到微软公司,有两个选项:发送或不发送,关闭的方法依此是: 进入:开始菜单- ...

最新文章

热门文章