Формат даты.

[vlkr]

Всем доброго дня!

Мне необходимо узнать системный формат даты который использует компьютер (именно формат).
У меня пока нет ни каких идей.

За любую идею спасибо.

[R Dmitry]

http://www.sql.ru/forum/actualutils....2&msg=12321630

Function FormatDateUser(Optional TipeFormat As Long = 0)
Const SReg = "HKEY_CURRENT_USER\Control Panel\International\"
Dim FormatDate$, SepDate$, FormatTime$, SepTime$, aSepUs(), SepDecimal$
With CreateObject("WScript.Shell")
    FormatDate = .RegRead(SReg & "sShortDate")
    SepDate = .RegRead(SReg & "sDate")
    FormatTime = .RegRead(SReg & "STimeFormat")
    SepTime = .RegRead(SReg & "STime")
    SepDecimal = .RegRead(SReg & "sDecimal")
    aSepUs = Array(".", "\", "/", "-", ":")
End With
For i = 0 To UBound(aSepUs)
    FormatDate = Replace(FormatDate, aSepUs(i), SepDate)
    FormatTime = Replace(FormatTime, aSepUs(i), SepTime)
Next
Select Case TipeFormat
Case 0: FormatDateUser = FormatDate & " " & FormatTime
Case 1: FormatDateUser = FormatDate
Case 2: FormatDateUser = FormatTime
Case 3: FormatDateUser = SepDecimal
Case 4: FormatDateUser = SepDate
End Select
End Function