Cấu hình định dạng thời gian cho máy tính.

[MỹHạnhCB]

Xin chào anh chị GPE ạ.
Các anh chị cho em hỏi mình có đoạn mã chạy cấu hình định dạng kiểu hiển thị thời gian của máy tính không ạ, nếu có mong các anh chị chia sẽ giúp ạ.
Mong muốn là để khi mở excel lên thì sẽ tự cấu hình định dạng thời gian trước để mình thực hiện chạy mã ạ.
Kiểu 1: Là kiểu hiển thị 01-Jul_22 (Ảnh 1)
Kiểu 2: Là kiểu hiển thị 07-01-2022 (Ảnh 2).
Mong các anh chị giúp đỡ ạ. Em xin cảm ơn nhiều

 

[MỹHạnhCB]

Em tìm được mã này trong diễn đàn GPE và chạy thành công rồi ạ, cảm ơn các anh chị đã xem qua ạ.

Sub ChangeSystemFormat()
Const HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:\root\default:StdRegProv")
strKeyPath = "Control Panel\International"
'Decimal symbol
strValueName1 = "sDecimal"
strValue1 = ","
'Digit grouping symbol
strValueName2 = "sThousand"
strValue2 = "."
'Short date
strValueName3 = "sShortDate"
strValue3 = "dd/MM/yyyy"

'Short time
strValueName4 = "sShortTime"
strValue4 = "HH:mm"

'Long time
strValueName5 = "sTimeFormat"
strValue5 = "HH:mm"

'AM symbol
strValueName6 = "s1159"
strValue6 = ""

'PM symbol
strValueName7 = "s2359"
strValue7 = ""

objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName1, strValue1
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName2, strValue2
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName3, strValue3

objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName4, strValue4
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName5, strValue5
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName6, strValue6
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName7, strValue7
End Sub