powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать локальные установки времени?
9 сообщений из 9, страница 1 из 1
Как узнать локальные установки времени?
    #33395904
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Например в моей системе это
Time H:mm:ss
Date dd.MM.yyyy
long d MMMM yyyy 'г.'
И тому подобное. Нужно как-то выцепить эти строки чтобы запихнуть потом их в Format.
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33395930
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разобрался, можно закрывать, поиск рулит :)
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33395933
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда вам сюда
HKEY_CURRENT_USER\Control Panel\International
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33396207
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
  ByVal Locale As Long, _
  ByVal LCType As Long, _
  ByVal lpLCData As String, _
  ByVal cchData As Long) As Long
  
Private Const LOCALE_SSHORTDATE = &H1F      ' Краткий формат даты.
Private Const LOCALE_SLONGDATE = &H20       ' Длинный формат даты
Private Const LOCALE_STIMEFORMAT = &H1003   ' Формат времени.
Private Const LOCALE_SDATE = &H1D           ' Разделитель даты.
Private Const LOCALE_STIME = &H1E           ' Разделитель времени.

Public Sub GetDateTimeSettings()
    Dim str As String *  100 
    
    GetLocaleInfo GetUserDefaultLCID, LOCALE_SSHORTDATE, str,  99 
    Debug.Print fnTrimNull(str)
    
    GetLocaleInfo GetUserDefaultLCID, LOCALE_SLONGDATE, str,  99 
    Debug.Print fnTrimNull(str)
    
    GetLocaleInfo GetUserDefaultLCID, LOCALE_STIMEFORMAT, str,  99 
    Debug.Print fnTrimNull(str)
    
    GetLocaleInfo GetUserDefaultLCID, LOCALE_SDATE, str,  99 
    Debug.Print fnTrimNull(str)
    
    GetLocaleInfo GetUserDefaultLCID, LOCALE_STIME, str,  99 
    Debug.Print fnTrimNull(str)
End Sub

Function fnTrimNull( _
  ByVal strValue As String) As String
    Dim intPos As Integer
    
    intPos = InStr(strValue, vbNullChar)
    
    Select Case intPos
        Case  0 
        Case  1 
            fnTrimNull = ""
        Case Is >  1 
            fnTrimNull = Left(strValue, intPos -  1 )
    End Select
End Function
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33397521
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ у нас русский язык не понимает нихрена.
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33397699
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемый Панталоне, не думайте только о себе эти ответы пригодятся тем кто будет находить Ваш топик при поиски ответа на свой вопрос (хотя Вам стоило это сделать самому вначале).
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #33397720
Согласен с SmeL_md. Для этого и публиковал.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как узнать локальные установки времени?
    #34576175
DemonP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кстати, большое спасибо за опубликованный ответ!!!
...
Рейтинг: 0 / 0
Как узнать локальные установки времени?
    #34576191
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, я погорячился, извините.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать локальные установки времени?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]