ไปยังเนื้อหาหลัก

วิธีตรวจสอบว่าปีหนึ่งเป็นปีอธิกสุรทินใน Excel หรือไม่?

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

ตรวจสอบว่าปีหนึ่งเป็นปีอธิกสุรทินด้วยสูตรหรือไม่

ตรวจสอบว่าปีใดปีหนึ่งเป็นปีอธิกสุรทินด้วย User Defined Function


ลูกศรสีฟ้าฟองขวา ตรวจสอบว่าปีหนึ่งเป็นปีอธิกสุรทินด้วยสูตรหรือไม่

สมมติว่าคุณมีรายการปีในแผ่นงานสูตรยาว ๆ ต่อไปนี้จะช่วยให้คุณพิจารณาได้ว่าปีหนึ่ง ๆ เป็นปีอธิกสุรทินหรือไม่ กรุณาทำตามนี้:

1. นอกเหนือจากเซลล์ปีในเซลล์ว่างให้ป้อนสูตรนี้:

= IF (OR (MOD (A2,400) = 0, AND (MOD (A2,4) = 0, MOD (A2,100) <> 0)), "Leap Year", "NOT a Leap Year"), (A2 มีปีที่คุณต้องการใช้สูตรนี้คุณสามารถเปลี่ยนได้ตามต้องการ) ดูภาพหน้าจอ:

doc-check-if-leap-year-1

2. จากนั้นลากจุดจับเติมไปยังช่วงที่คุณต้องการมีสูตรนี้และมีการตรวจสอบปีทั้งหมดว่าเป็นปีอธิกสุรทินหรือไม่

doc-check-if-leap-year-1

หมายเหตุ: ถ้าเซลล์สัมพัทธ์ว่างเปล่าสูตรนี้จะแสดง Leap Year ด้วย


ลูกศรสีฟ้าฟองขวา ตรวจสอบว่าปีใดปีหนึ่งเป็นปีอธิกสุรทินด้วย User Defined Function

นอกจากนี้คุณยังสามารถสร้าง User Defined Function เพื่อตรวจสอบว่าปีนั้นเป็นปีอธิกสุรทินหรือไม่คุณสามารถดำเนินการดังต่อไปนี้:

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ตรวจสอบว่าปีหนึ่งเป็นปีอธิกสุรทินหรือไม่

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานของคุณแล้วป้อนสูตรนี้: = isleapyear (A2) ดูภาพหน้าจอ:

doc-check-if-leap-year-1

4. จากนั้นลากจุดจับเติมไปยังเซลล์ที่คุณต้องการให้มีสูตรนี้และทุกปีถูกเลือก FALSE ไม่ใช่ปีอธิกสุรทินและ TRUE บ่งบอกถึงปีอธิกสุรทิน ดูภาพหน้าจอ:

doc-check-if-leap-year-1


บทความที่เกี่ยวข้อง:

ค้นหาตัวส่วนร่วมต่ำสุดหรือตัวประกอบร่วมที่ยิ่งใหญ่ที่สุดใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
ivec, your determination of a leap year within Excel itself works if the year is at / later than the Excel base year of 1900. For years before the Excel base year of 1900, I believe an external determination is required.
This comment was minimized by the moderator on the site
What about relying on Excel's own definition of a leap year?
The expression below checks the difference between March 1st and Feb 28 in that year - a leap year will have Feb 29 in-betweek, which makes a difference of 2 days.
IsLeapYear formula: = ( DATE( $$YEAR_REF$$ ;3;1)-DATE( $$YEAR_REF$$ ;2;28) > 1.5 )

The 1.5 is because I'm not sure if there is a risk of floating-point inaccuracies...
This comment was minimized by the moderator on the site
Please don't post my previous comment.
This comment was minimized by the moderator on the site
Using Excel 2013 the VBA returns backwards, saying 2015 is a leap year and 2016 is not
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations