อยากได้สูตรแปลงตัวอักษรเป็นวันที่ครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Function aekka(a As Range, Optional b As Integer) As Date
    Dim aa, aaa
    Dim bb, bbb
    Dim cc, ccc
    Dim ddd As Date
    
    aa = Left(Trim(a), 3) 'date
    bb = Trim(Mid(WorksheetFunction.Substitute(a, " ", WorksheetFunction.Rept(" ", 50)), 50, 50)) ' month
    cc = Right(Trim(a), 5) ' year
    aaa = Val(aa)
    ccc = Val(cc)
    Select Case LCase(bb)
        Case "มกราคม", "january"
        bbb = 1
        Case "กุมภาพันธ์", "february"
        bbb = 2
        Case "มีนาคม", "march"
        bbb = 3
        Case "เมษายน", "april"
        bbb = 4
        Case "พฤษภาคม", "may"
        bbb = 5
        Case "มิถุนายน", "june"
        bbb = 6
        Case "กรกฎาคม", "july"
        bbb = 7
        Case "สิงหาคม", "august"
        bbb = 8
        Case "กันยายน", "september"
        bbb = 9
        Case "ตุลาคม", "october"
        bbb = 10
        Case "พฤศจิกายน", "november"
        bbb = 11
        Case "ธันวาคม", "december"
        bbb = 12
    End Select
    ccc = ccc + b
    ddd = DateSerial(ccc, bbb, aaa)
    aekka = ddd
        
End Function

[akekorn]

สงสัยคุณคนควนจะมีงานเยอะ ไม่เป็นไรครับเอาไว้พอมีเวลาผมรบกวนขอความอนุเคราะห์ด้วยครับ

ขอบคุณมากๆครับ

[snasui]

ทดสอบ Code ตามด้านบนแล้วยังครับ

[akekorn]

ทดสอบแล้วครับได้ตามต้องการครับแต่ผมรบกวนอีกครั้งได้ไหมครับเพราะหากนำไปใช้จริงกลัวคนใช้จะงงผมเลยเปลี่ยนโค๊ดอีกนิดครับ

Code: Select all

Function aekka(a As Range, Optional b As String) As Date
    Dim aa, aaa
    Dim bb, bbb
    Dim cc, ccc
    Dim ddd As Date
    
    aa = Left(Trim(a), 3) 'date
    bb = Trim(Mid(WorksheetFunction.Substitute(a, " ", WorksheetFunction.Rept(" ", 50)), 50, 50)) ' month
    cc = Right(Trim(a), 5) ' year
    aaa = Val(aa)
     If b = "TH" And Val(Left(cc, 2)) < 25 Then
        ccc = Val(cc) + 543
    Else
        If Left(cc, 2) = "25" Then
            ccc = Val(cc)
        Else
            ccc = Val(cc) - 543
        End If
    End If
    
    Select Case LCase(bb)
        Case "Á¡ÃÒ¤Á", "january"
        bbb = 1
        Case "¡ØÁÀҾѹ¸ì", "february"
        bbb = 2
        Case "ÁÕ¹Ò¤Á", "march"
        bbb = 3
        Case "àÁÉÒ¹", "april"
        bbb = 4
        Case "¾ÄÉÀÒ¤Á", "may"
        bbb = 5
        Case "ÁԶعÒ¹", "june"
        bbb = 6
        Case "¡Ã¡®Ò¤Á", "july"
        bbb = 7
        Case "ÊÔ§ËÒ¤Á", "august"
        bbb = 8
        Case "¡Ñ¹ÂÒ¹", "september"
        bbb = 9
        Case "µØÅÒ¤Á", "october"
        bbb = 10
        Case "¾ÄȨԡÒ¹", "november"
        bbb = 11
        Case "¸Ñ¹ÇÒ¤Á", "december"
        bbb = 12
    End Select
    
    ddd = DateSerial(ccc, bbb, aaa)
    aekka = ddd
        
End Function

ไม่ทราบว่า หากแทนค่าสูตรเช่น

cell A1
01/25/1999 = aekka(a1,"TH") ให้แสดง 25/01/2542

หรือ

12/24/2543 = aekka(a1,"EN") ให้แสดง 24/12/2000 ควรแก้ไขโค๊ดอย่างไรครับผม

ขอบคุณครับ

[snasui]

ช่วยโพสต์ Code ให้แสดงเป็นภาษาไทย ดูตัวอย่างจากระทู้นี้ครับ viewtopic.php?f=3&t=1354

[akekorn]

ครับผม

Code: Select all

Function aekka(a As Range, Optional b As String) As Date
    Dim aa, aaa
    Dim bb, bbb
    Dim cc, ccc
    Dim ddd As Date
    
    aa = Left(Trim(a), 3) 'date
    bb = Trim(Mid(WorksheetFunction.Substitute(a, " ", WorksheetFunction.Rept(" ", 50)), 50, 50)) ' month
    cc = Right(Trim(a), 5) ' year
    aaa = Val(aa)
     If b = "TH" And Val(Left(cc, 2)) < 25 Then
        ccc = Val(cc) + 543
    Else
        If Left(cc, 2) = "25" Then
            ccc = Val(cc)
        Else
            ccc = Val(cc) - 543
        End If
    End If
    
    Select Case LCase(bb)
        Case "มกราคม", "january"
        bbb = 1
        Case "กุมภาพันธ์", "february"
        bbb = 2
        Case "มีนาคม", "march"
        bbb = 3
        Case "เมษายน", "april"
        bbb = 4
        Case พฤษภาคม", "may"
        bbb = 5
        Case "มิถุนายน", "june"
        bbb = 6
        Case กรกฎาคม", "july"
        bbb = 7
        Case "สิงหาคม", "august"
        bbb = 8
        Case "กันยายน", "september"
        bbb = 9
        Case "ตุลาคม", "october"
        bbb = 10
        Case "พฤศจิกายน", "november"
        bbb = 11
        Case "ธันวาคม”, "december"
        bbb = 12
    End Select
    
    ddd = DateSerial(ccc, bbb, aaa)
    aekka = ddd
        
End Function

[snasui]

ต้องเข้าใจวันที่ใน Excel ก่อนนะครับว่าควรเป็น ค.ศ. เท่านั้น การที่จะแปลงให้เป็น พ.ศ. ควรใช้การจัด Format หากคีย์หรือแปลงเป็นตัวเลข พ.ศ. แล้วจะเอาไปคิดคำนวณต่าง ๆ มีโอกาสผิดพลาดได้มาก

สำหรับ Code ตามเงื่อนไขที่ต้องการ ดูตัวอย่างตามด้านล่างครับ

Code: Select all

Function aekka(a As Range, Optional b As String) As Date
    Dim aaa, bbb, ccc, x
    
    x = Split(Application.Trim(a), " ")
    aaa = x(0) 'date
    bbb = x(1) 'month
    ccc = x(2) 'year
    
    If b = "TH" Then
        If Val(ccc) < 2100 Then
            ccc = ccc + 543
        End If
    End If
    
    If b = "EN" Then
        If Val(ccc) > 2100 Then
            ccc = ccc - 543
        End If
    End If
    
    Select Case LCase(bbb)
        Case "มกราคม", "january"
            bbb = 1
        Case "กุมภาพันธ์", "february"
            bbb = 2
        Case "มีนาคม", "march"
            bbb = 3
        Case "เมษายน", "april"
            bbb = 4
        Case "พฤษภาคม", "may"
            bbb = 5
        Case "มิถุนายน", "june"
            bbb = 6
        Case "กรกฎาคม", "july"
            bbb = 7
        Case "สิงหาคม", "august"
            bbb = 8
        Case "กันยายน", "september"
            bbb = 9
        Case "ตุลาคม", "october"
            bbb = 10
        Case "พฤศจิกายน", "november"
            bbb = 11
        Case "ธันวาคม", "december"
            bbb = 12
    End Select
    
    aekka = DateSerial(ccc, bbb, aaa)
        
End Function

[akekorn]

ขอบคุณมากครับในความอนุเคราะห์ครับผม