Note: The other languages of the website are Google-translated. Back to English
English English

วิธีคำนวณอายุก่อน 1/1/1900 ใน Excel

ใน Excel ไม่สามารถป้อนวันที่ก่อน 1/1/1900 และคำนวณได้อย่างถูกต้อง หากคุณต้องการคำนวณอายุของบุคคลที่เกิดและเสียชีวิตก่อน 1/1/1900 โดยทั่วไปจะไม่ได้รับการคำนวณที่ถูกต้องใน Excel แต่ในบทความนี้เคล็ดลับสามารถช่วยให้คุณคำนวณอายุก่อน 1/1/1900 ใน Excel ได้

คำนวณอายุก่อน 1/1/1900 ด้วย VBA

คำนวณอายุตามวันเกิดด้วย Kutools for Excel ความคิดที่ดี 3


ลูกศรสีฟ้าฟองขวา คำนวณอายุก่อน 1/1/1900 ด้วย VBA

นี่คือรหัส VBA ที่ช่วยให้คุณคำนวณอายุก่อน 1/1/1900 ได้อย่างรวดเร็ว

1. เลือกเซลล์ว่างและป้อนวันเกิดของบุคคลนั้นจากนั้นเลือกเซลล์อื่นเพื่อป้อนวันที่ของวันนี้หรือวันที่คนตายตามที่คุณต้องการ ดูภาพหน้าจอ:
doc คำนวณอายุก่อนปี 1900 1

2. จากนั้นกด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3 คลิก สิ่งที่ใส่เข้าไป > โมดูลวางด้านล่าง VBA ลงในไฟล์ โมดูล หน้าต่าง

VBA: คำนวณอายุก่อน 1/1/1900

Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
    Dim xSMonth As Integer
    Dim xSDay As Integer
    Dim xSYear As Integer
    Dim xEMonth As Integer
    Dim xEDay As Integer
    Dim xEYear As Integer
    Dim xAge As Integer
    If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    xAge = xEYear - xSYear
    If xSMonth > xEMonth Then
        xAge = xAge - 1
    ElseIf xSMonth = xEMonth Then
        If xSDay > xEDay Then xAge = xAge - 1
    End If
    If xAge < 0 Then
        AgeFunc = "Invalid Date"
    Else
        AgeFunc = xAge
    End If
End Function

Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
    Dim I As Long
    Dim K As Long
    Y = 0
    M = 0
    D = 0
    GetDate = True
    On Error Resume Next
    I = InStr(1, DateStr, "/")
    M = CLng(Left(DateStr, I - 1))
    D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
    Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
    If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
        GetDate = False
    End If
End Function

4. เลือกเซลล์ว่างนี่คือ C2 แล้วป้อนสูตรนี้ = AgeFunc (A2, B2) (A2 คือวันเกิดและ B2 คือวันที่สิ้นสุด) แล้วกด เข้าสู่ เพื่อดูอายุและลากที่จับการป้อนอัตโนมัติไปยังเซลล์ที่คุณต้องการ ดูภาพหน้าจอ:
doc คำนวณอายุก่อนปี 1900 2

หมายเหตุ VBA นี้สามารถคำนวณอายุด้วยวันที่ในรูปแบบ mm / dd / yyyy เช่น 6/23/1845


ลูกศรสีฟ้าฟองขวา คำนวณอายุตามวันเกิดด้วย Kutools for Excel

หากปกติวันเกิดหลัง 1/1/1900 คุณสามารถสมัครได้ Kutools สำหรับ Excel's ตัวช่วยวันที่และเวลา ยูทิลิตี้ซึ่งสามารถคำนวณอายุได้อย่างรวดเร็วตามวันเกิดที่กำหนด

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เลือกเซลล์ว่างที่คุณต้องการแสดงอายุจากนั้นคลิก Kutools > ตัวช่วยสูตร > ตัวช่วยวันที่และเวลา. ดูภาพหน้าจอ:
doc คำนวณอายุก่อนปี 1900 3

2. จากนั้นใน ตัวช่วยวันที่และเวลา โต้ตอบตรวจสอบตัวเลือกอายุเลือกวันเกิดที่คุณต้องการคำนวณอายุตาม วันที่ เกิด กล่องข้อความค่าเริ่มต้นเซลล์จะถูกเลือกเป็นการอ้างอิงแบบสัมบูรณ์คุณสามารถเปลี่ยนเป็นการอ้างอิง relatiev จากนั้นตรวจสอบ ในวันนี้ และเลือกประเภทผลลัพธ์ที่คุณต้องการให้แสดงในรายการแบบเลื่อนลง ประเภทผลลัพธ์เอาต์พุต. ดูภาพหน้าจอ:
doc คำนวณอายุก่อนปี 1900 4

3 คลิก Ok เพื่อใช้สูตรนี้และตอนนี้คุณสามารถดูอายุได้แล้ว และถ้าคุณต้องการคุณสามารถลากจุดจับการป้อนอัตโนมัติไปทับเซลล์ที่ต้องการสูตรนี้ได้ ดูภาพหน้าจอ:
doc คำนวณอายุก่อนปี 1900 5


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ทำงาน excel พูดว่า "nombre Ambiguo"
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ