VBNet - Форум

Вопрос: Дата Добавлено: 12.03.03 15:03

Автор вопроса: s.sergey

Вопрос по дате.

Как программно узнать какой формат даты на машине куда я устанавливаю программу.

Н-р у меня разделитель даты /, а на другой машине разделитель точка.

Как эта проблема решается. Нужно как-то подстраиваться под существующий формат даты???

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:
SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244 Профиль | | #1 Добавлено: 12.03.03 15:50

Я не сталкивался, но первое, что приходит в голову увидев "\" и "." так загони дату в стринг, а затем считай 3-ий символ, исли он не тот, что надо поменять можно

Replace(Expression,Find,Replace[,Start[,Count[,Compare]]])

Или через API фнукцию поменять на нужный формат, а затем обратно, какую, не знаю, но должна быть.

Ответить

Номер ответа: 2
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #2

Добавлено: 14.03.03 04:14

Посмотри как я решил эту проблему в примере Age

А вообще, по-моему, GetSystemMetrics (API).

Ответить

Номер ответа: 3
Автор ответа:

Alex3

ICQ: 9481061

Вопросов: 18
Ответов: 132

Профиль | | #3

Добавлено: 14.03.03 18:00

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 Sub Form_Load()

Dim str As String

str = Space(20)

GetLocaleInfo GetUserDefaultLCID, LOCALE_SSHORTDATE, str, 20

MsgBox RTrim(str)

End Sub

По аналогии вынимается любая другая информация в зависимости от константы.

Ответить

Страница: 1 |