การตรวจสอบ Regional Setting ว่าเป็น พ.ศ. หรือ ค.ศ. ใน VB6 และ VB.NET

สามารถใช้ CODE ตามนี้ได้เลยครับ

• Code สำหรับ VB6

If Val(Format(Now, "YYYY")) = Year(Now) Then
   	MsgBox "Regional Setting = English, Year type is A.D.(Anno Domini) or คริสต์ศักราช(ค.ศ.)"
Else
	MsgBox "Regional Setting = Thai, Year type is B.E.(Buddhist Era) or พุทธศักราช(พ.ศ.)"
End If

• Code สำหรับ VB.NET สังเกตุว่าตรง Now นะครับมีการเติม () เพิ่มเข้าไป ^___^

If Val(Format(Now(), "YYYY")) = Year(Now) Then
   	MsgBox "Regional Setting = English, Year type is A.D.(Anno Domini) or คริสต์ศักราช(ค.ศ.)"
Else
	MsgBox "Regional Setting = Thai, Year type is B.E.(Buddhist Era) or พุทธศักราช(พ.ศ.)"
End If