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

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

Code สำหรับ VB6

• 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 เหมือนกัน หรือ ใช้ตัว Date.Now เพิ่มเข้าไป ^___^

If Val(Format(Date.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