การตรวจสอบ 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

Discover more from naiwaen@DebuggingSoft

Subscribe to get the latest posts sent to your email.