نمایش ساعت ویندوز با فرمت 24 ساعته

[silverado]

سلام
چطور میشه با کدنویسی فرمت ساعت ویندوز را از 12 ساعته به 24 ساعته تغییر داد ؟
اینو برای این می خوام چون برنامه ای که دارم ساعت ورود و خروج رو ثبت می کنه خوب اگه 12 ساعته باشه نمی شه اختلاف زمان رو درست حساب کرد
اگه کسی می تونه راهنمایی کنه .
ممنون

[M.T.P]

می تونید از توابع زیر استفاده کنید:

تابع ساعت با فرمت 24 ساعته:


Function Time24() As String
Dim strReturn As String
strReturn = Format$(Now, "HH:MM:SS")
Time24 = strReturn
End Function

تابع ساعت با فرمت 12 ساعته:


Function Time12() As String
Dim strReturn As String
strReturn = Format$(Now, "HH:MM:SS AMPM")
Time12 = strReturn
End Function