การใช้งาน Finding Day of Year ในภาษา Delphi Object Pascal แบบง่ายๆ

การเรียนรู้การเขียนโปรแกรมนั้นไม่แตกต่างจากการเรียนรู้ที่จะปั่นจักรยาน ในช่วงแรกอาจจะต้องพยายามอยู่บ้าง แต่เมื่อคุณเข้าใจมันแล้ว คุณสามารถพาไปไหนมาไหนได้อย่างง่ายดาย วันนี้เราจะพูดถึงการหาวันที่ของปี (Day of Year) ในภาษา Delphi Object Pascal ซึ่งถือเป็นเรื่องที่มีความสำคัญในหลายๆ งานโปรแกรมมิ่ง และสามารถนำไปใช้ในหลายๆ use case ในชีวิตจริงได้

วันในปี (Day of Year)

ก่อนที่เราจะไปสู่โค้ด เรามาทำความเข้าใจกันสั้นๆ เกี่ยวกับการหาวันที่ของปี ในภาษาโปรแกรมมิ่ง Day of Year คือจำนวนวันที่ผ่านมา นับจากวันที่ 1 มกราคมจนถึงวันที่ปัจจุบัน โดยที่วันที่ 1 มกราคมจะถือเป็นวันแรกของปี (Day 1) และวันที่ 31 ธันวาคมจะเป็นวันสุดท้าย (Day 365 หรือ 366 ในปีที่มี leap year)

ปัจจัยที่ต้องพิจารณา

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

ตัวอย่างโค้ดใน Delphi Object Pascal

ในตัวอย่างโค้ดด้านล่างเราจะใช้ฟังก์ชันในการคำนวณหาวันที่ของปี โดยจะใช้ `TDateTime` ซึ่งเป็นประเภทข้อมูลใน Delphi สำหรับเก็บค่าเวลาและวันที่

 program DayOfYearExample;

uses SysUtils;

function DayOfYear(ADate: TDateTime): Integer;
var
  Year, Month, Day: Word;
begin
  DecodeDate(ADate, Year, Month, Day);
  Result := Day; // เริ่มต้นที่วัน
  // เพิ่มจำนวนวันที่ในเดือนก่อนหน้า
  case Month of
    1: Result := Result; // มกราคม
    2: Result := Result + 31; // กุมภาพันธ์
    3: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28); // มีการตรวจสอบ Leap Year
    4: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31; // เมษายน
    5: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30; // พฤษภาคม
    6: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31; // มิถุนายน
    7: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30; // กรกฎาคม
    8: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30 + 31; // สิงหาคม
    9: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30 + 31 + 31; // กันยายน
    10: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30 + 31 + 31 + 30; // ตุลาคม
    11: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31; // พฤศจิกายน
    12: Result := Result + 31 + IfThen(IsLeapYear(Year), 29, 28) + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30; // ธันวาคม
  end;
end;

var
  Today: TDateTime;
begin
  Today := Date; // วันปัจจุบัน
  WriteLn('Today is day number: ', DayOfYear(Today));
  ReadLn;
end.

การทำงานของโค้ด

1. ใช้ `DecodeDate` แยกวัน เดือน และปีจาก `TDateTime` ที่ส่งเข้ามา

2. ใช้ `case` เพื่อเพิ่มจำนวนวันตามเดือนที่เป็นอยู่

3. มีการตรวจสอบ `IsLeapYear` เพื่อดูว่าปีนั้นเป็นปีอธิกสุรทินเช่น 2020 หรือไม่

4. แสดงผลลัพธ์ โดยการพิมพ์วันในปีผ่าน `WriteLn`

Use Cases ในโลกจริง

ทำไมถึงควรเรียนรู้ Delphi Object Pascal ที่ EPT?

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

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

หากคุณมีคำถามเพิ่มเติมเกี่ยวกับการเขียนโปรแกรมหรือ Delphi สอบถามที่ EPT ได้เลย เข้าไปที่ [Expert-Programming-Tutor](https://www.ept.ac.th) เพื่อเรียนรู้เพิ่มเติมเกี่ยวกับหลักสูตรที่มีให้ รวมถึงเทคนิคการเขียนโปรแกรมที่หลากหลายอีกมากมาย!

สรุป

การหาวันในปีในโปรแกรม Delphi Object Pascal นั้นไม่ซับซ้อนแถมยังมีความสำคัญต่อการพัฒนาซอฟต์แวร์ในหลากหลายอุตสาหกรรม รู้ไหมว่านี้เป็นเพียงจุดเริ่มต้นของการเรียนรู้ความสามารถที่มากมายในทุกๆ ภาษาประเภทโปรแกรม!

หวังว่าบทความนี้จะช่วยให้คุณมีความเข้าใจที่ดีขึ้นและพร้อมที่จะลงมือเขียนโปรแกรมใน Delphi กันบ้างแล้ว จะรออะไรอยู่? ไปศึกษากันเถอะ!

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