討論區快速選單
知識庫快速選單
討論區最近新進100則主題 掌握Salesforce雲端管理秘訣 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
請問 Cobol 如何知道今天星期幾
更改我的閱讀文章字型大小
作者 : yuchieh(保時捷)
[ 貼文 10 | 人氣 3168 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/2/23 下午 04:06:57
小弟想用 Cobol 的日期來判斷今天星期幾!
不知道 Cobol 有函數可以辦到嗎?

或是有其它的方式可以做到?
作者 : eid(艾德)
[ 貼文 24 | 人氣 1 | 評價 40 | 評價/貼文 1.67 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/2/27 下午 12:02:48
試試這段
ACCEPT NUMB FROM DAY-OF-WEEK.
作者 : godbeen(godbeen)
[ 貼文 4 | 人氣 735 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/4/6 上午 03:15:34
可以么?
好像没见过这么写的:)
作者 : eid(艾德)
[ 貼文 24 | 人氣 1 | 評價 40 | 評價/貼文 1.67 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/4/6 下午 04:02:29
ACUCOBOL-GT Appendices Version 6.1 電子書上面有
至於版本環境不同, 能否正常運作
反正程式才短短一行, 加上定義一行
測試一下就知道了, 不是嗎? 大哥 :)
作者 : imcly(jaylin)
[ 貼文 7 | 人氣 2934 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/8 下午 05:18:27
eid大大是對的!! 我試過上面那段,的確可以抓到當天是星期幾喔!!當然版本應該有關係,
另外我想寫支副程式可以判斷某個日期是星期幾!? 可是不知道怎麼下手耶!! 有哪位大大可以提點一下嗎?! 感謝!!
作者 : knifour(小毛)
[ 貼文 102 | 人氣 894 | 評價 390 | 評價/貼文 3.82 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/9 下午 01:15:07
ID DIVISION.
     PROGRAM-ID. DAY-WEEK IS INITIAL PROGRAM.
     ENVIRONMENT DIVISION.
     DATA DIVISION.
     WORKING-STORAGE SECTION.
     01 BUFFERS PIC X(24) VALUE
     "312831303130313130313031".
     01 REDEFINES BUFFERS.
     02 MON OCCURS 12 TIMES PIC 9(02).

     01 ACPT-DATE.
     02 ACPT-YY PIC 9(04).
     02 ACPT-MM PIC 9(02).
     02 ACPT-DD PIC 9(02).

     77 YEARS PIC 9(04).
     77 Y4 PIC 9(04).
     77 Y100 PIC 9(04).
     77 Y400 PIC 9(04).
     77 DAYS PIC 9(03).
     77 TMP PIC 9(08).
     77 WEEK-DAY PIC 9(02).
     77 FLAG PIC X(01).
     77 TMP1 PIC 9(04).
     77 TMP2 PIC 9(04).
     77 II PIC 9(04).
     77 JJ PIC 9(04).

     LINKAGE SECTION.
     77 PASS-DATE PIC 9(08).
     77 PASS-DAY-WEEK PIC 9(01).
作者 : knifour(小毛)
[ 貼文 102 | 人氣 894 | 評價 390 | 評價/貼文 3.82 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/9 下午 01:15:51
PROCEDURE DIVISION USING PASS-DATE PASS-DAY-WEEK.
     000-START-RTN.
     MOVE PASS-DATE TO ACPT-DATE.
     PERFORM LEAP-RTN.
     COMPUTE YEARS = ACPT-YY - 1.
     COMPUTE Y4 = YEARS / 4.
     COMPUTE Y100 = YEARS / 100.
     COMPUTE Y400 = YEARS / 400.
     COMPUTE TMP = YEARS * 365 + Y4 - Y100 + Y400 + DAYS.
     DIVIDE TMP BY 7 GIVING TMP REMAINDER PASS-DAY-WEEK.
     GOBACK.

     LEAP-RTN.
     MOVE "N" TO FLAG.
     DIVIDE ACPT-YY BY 4 GIVING TMP1 REMAINDER TMP2.
     IF TMP2 = 0 THEN
     MOVE "Y" TO FLAG
     DIVIDE ACPT-YY BY 100 GIVING TMP1 REMAINDER TMP2
     IF TMP2 = 0 THEN
     MOVE "N" TO FLAG
     DIVIDE ACPT-YY BY 400 GIVING TMP1 REMAINDER TMP2
     IF TMP2 = 0 THEN
     MOVE "Y" TO FLAG
     END-IF
     END-IF
     END-IF.

     IF FLAG = "Y" THEN
     MOVE 29 TO MON(2)
     END-IF.

     MOVE 0 TO DAYS.
     COMPUTE JJ = ACPT-MM - 1.
     PERFORM VARYING II FROM 1 BY 1 UNTIL II > JJ
     COMPUTE DAYS = DAYS + MON(II)
     END-PERFORM.
     COMPUTE DAYS = DAYS + ACPT-DD.
作者 : knifour(小毛)
[ 貼文 102 | 人氣 894 | 評價 390 | 評價/貼文 3.82 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/9 下午 01:17:59
討論區不支援縮排
排好的程式貼上之後就亂掉了,有一點可惜
這是一個判斷星期幾的副程式
請參考,若有疑問歡迎討論
作者 : lin1277(岸峰)
[ 貼文 6 | 人氣 2850 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/23 下午 07:28:17
一个非常EASE的办法,一句话搞定:
COMPUT I=FUNCTION MOD(FUNCTION INTEGER-OF-DATE(DATE-WK) ,7)
然后判断I等于多少,即可.I=1 为星期一,2为星期二,……,7等于星期天。
作者 : lin1277(岸峰)
[ 貼文 6 | 人氣 2850 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/23 下午 08:06:58
若是计算今天是星期几,如下:
数据部定义:
01 TODATE-WK.
    02 TODATE PIC 9(8) VALUE 0 .
    02 FILLER PIC X(13) VALUE SPACES.

过程部:
MOVE FUNCTION CURRENT-DATE TO TODATE-WK
COMPUTE I = FUNCTION MOD(FUNCTION INTEGER-OF-DATE(TODATE),7)
作者 : lin1277(岸峰)
[ 貼文 6 | 人氣 2850 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/23 下午 10:15:16

>eid大大是對的!! 我試過上面那段,的確可以抓到當天是星期幾喔!!當然版本應該有關係,
>另外我想寫支副程式可以判斷某個日期是星期幾!? 可是不知道怎麼下手耶!! 有哪位大大可以提點一下嗎?! 感謝!!

嗯,在OS/390环境下验证,eid的办法确实可行。
而你要的判断某个日期是星期几,看来可以使用我提供的函数了!
 板主 : Cheryl
 > COBOL - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - COBOL - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
COBOL
1 wen 500 
2 小毛 310 
3 阿強 300 
4 ysl561 120 
5 bobkids 120 
6 zhaoxf 100 
7 chen 80 
8 ozzy 50 
9 WDCHIANG 50 
10 50 
COBOL
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.3125