การใช้งาน Finding Day of Year ในภาษา COBOL แบบง่ายๆ พร้อมตัวอย่าง CODE

ในโลกของการเขียนโปรแกรม ภาษา COBOL (Common Business Oriented Language) ยังคงมีความสำคัญในด้านธุรกิจ โดยเฉพาะในการจัดการข้อมูลและการประมวลผลข้อมูลขนาดใหญ่ ไม่ว่าจะเป็นด้านการเงิน การบัญชี หรือการบริหารทรัพยากรมนุษย์ แน่นอนว่า COBOL มีความสามารถในการจัดการกับวันที่และเวลา ซึ่งหนึ่งในฟังก์ชันที่สำคัญก็คือ การหาจำนวนวันที่ตรงกับวันในปี (Finding Day of Year)

ทำไมต้องหาจำนวนวันที่

การหาจำนวนวันที่ในปีเป็นข้อมูลที่สำคัญในหลายธุรกิจ ยกตัวอย่างเช่น ในระบบการจัดการเงินเดือน เราจำเป็นต้องรู้ว่า วันไหนของปีเป็นวันจ่ายเงินเพื่อคำนวณจำนวนชั่วโมงทำงานและการขาดงานได้อย่างถูกต้อง นอกจากนี้ยังมีการใช้งานในด้านการวิเคราะห์ข้อมูลทางสถิติหรือแม้แต่การจัดการกับปฏิทินในระบบต่างๆ โดยทั่วไปแล้ว การนำไปใช้ในระบบต่างๆ ก็จะช่วยให้การคำนวณและการประมวลผลมีความแม่นยำขึ้น

การเขียนโปรแกรม COBOL เพื่อหาจำนวนวันที่ในปี

ในภาษา COBOL การทำงานกับวันที่และเวลาอาจดูซับซ้อนในตอนแรก แต่จริงๆ แล้วเราสามารถทำได้ด้วยตัวแปรและฟังก์ชันธรรมดา เราจะต้องใช้ฟังก์ชันในการแปลงวันเป็นรูปแบบที่เข้าใจได้ง่าย และทำการคำนวณเพื่อหาว่า วันไหนเป็นวันที่เท่าไรของปี

ตัวอย่างโค้ด

        IDENTIFICATION DIVISION.
       PROGRAM-ID. FindDayOfYear.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  Current-Date         PIC 9(8) VALUE '20230115'.
       01  Year                 PIC 9(4).
       01  Month                PIC 9(2).
       01  Day                  PIC 9(2).
       01  DayOfYear           PIC 9(3).
       01  DaysInMonth         PIC 9(2) VALUE 0.

       PROCEDURE DIVISION.
           MOVE CURRENT-DATE(1:4) TO YEAR.
           MOVE CURRENT-DATE(5:2) TO MONTH.
           MOVE CURRENT-DATE(7:2) TO DAY.

           EVALUATE MONTH
               WHEN 1
                   MOVE 31 TO DAYSINMONTH
               WHEN 2
                   IF (YEAR MOD 4 = 0 AND (YEAR MOD 100 <> 0 OR YEAR MOD 400 = 0))
                       MOVE 29 TO DAYSINMONTH
                   ELSE
                       MOVE 28 TO DAYSINMONTH
                   END-IF
               WHEN 3
                   MOVE 31 TO DAYSINMONTH
               WHEN 4
                   MOVE 30 TO DAYSINMONTH
               WHEN 5
                   MOVE 31 TO DAYSINMONTH
               WHEN 6
                   MOVE 30 TO DAYSINMONTH
               WHEN 7
                   MOVE 31 TO DAYSINMONTH
               WHEN 8
                   MOVE 31 TO DAYSINMONTH
               WHEN 9
                   MOVE 30 TO DAYSINMONTH
               WHEN 10
                   MOVE 31 TO DAYSINMONTH
               WHEN 11
                   MOVE 30 TO DAYSINMONTH
               WHEN 12
                   MOVE 31 TO DAYSINMONTH
           END-EVALUATE.

           COMPUTE DAYOFYEAR = (YEAR * 365) + (DAYSINMONTH / 2) + DAY.

           DISPLAY "The day of the year for " CURRENT-DATE " is " DAYOFYEAR.

           STOP RUN.

อธิบายการทำงานของโค้ด

Use Case ในโลกจริง

ลองจินตนาการว่าเราเป็นผู้ดูแลระบบการจ่ายเงินเดือนในองค์กรขนาดใหญ่ ในแต่ละเดือนเราต้องสร้างรายงานการจ่ายเงินเดือนให้กับพนักงานทุกคน การหาว่าวันใดเป็นวันจ่ายเงินนั้นสำคัญมาก เมื่อเราคำนวณได้ว่าวันไหนเป็นวันจ่ายเงินในปี เราจะสามารถคำนวณเงินเดือน รวมถึงโบนัสและค่าล่วงเวลาได้อย่างแม่นยำ นอกจากนั้น การทำงานของระบบรถยนต์ขนส่งสินค้า ยังต้องใช้ความสามารถในการหาวันในปีเพื่อคำนวณระยะเวลาการส่งสินค้าที่ถูกต้อง

ด้วยความสามารถเหล่านี้ ภายใต้การเขียนโปรแกรมภาษา COBOL จึงทำให้บริษัทสามารถดำเนินการให้มีประสิทธิภาพมากขึ้น

เชิญชวนเรียนรู้กับ EPT

การเรียนรู้โปรแกรมมิ่งในปัจจุบันนั้นเป็นสิ่งที่ทุกคนสามารถทำได้ด้วยความพยายามและการฝึกฝนที่จริงจัง สภาพแวดล้อมที่ดีในการเรียนรู้สามารถช่วยให้คุณเข้าใจถึงพื้นฐานที่จำเป็นในการเขียนโปรแกรม ไม่ว่าจะเป็น COBOL หรือภาษาอื่นๆ

ที่ EPT (Expert-Programming-Tutor) เรามีหลักสูตรในการสอนโปรแกรมมิ่งที่ออกแบบมาเพื่อให้คุณสามารถเข้าใจภาษาโปรแกรมต่างๆ ได้อย่างลึกซึ้ง รวมถึงภาษา COBOL ที่เป็นที่ต้องการในตลาดงานถึงแม้จะเก่าแก่ก็ตาม เริ่มต้นการเดินทางสู่การเป็นผู้เชี่ยวชาญด้านการเขียนโปรแกรมได้ที่ EPT วันนี้!

สรุป

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง