time format!

[DVV]

Как можно использовать время различных форматов 24-hour and 12-hour.(Чтобы их можно было менять!)

[tyomitch]

Как можно использовать время? Ну например, в кваку поиграть

Что надо-то? Функция Format не поможет?

[GSerg]

Эх, давно я в Кваку не играл!
А ведь когда-то...
Хотя нет, Xaero в честном nightmare порвать не получалось

[tyomitch]

Эх, давно я в Кваку не играл!
А ведь когда-то...
Хотя нет, Xaero в честном nightmare порвать не получалось

Аналогично
Всех, кроме него, я на hardcore прошёл.

[Amed]

Хы-хы... Ламеры )

Я на Nightmare делал (правда, с некоторым трудом ) Xaero...

Предлагаю завершить обсуждение этого вопроса в Трёпе

[SHURUP]

Размести на форме две Label и таймер с интервалом 1000:

Код: Выделить всё

Private Sub Timer1_Timer()
    Label1 = Format(Now, "hh:nn:ss")
    tmp$ = IIf(Hour(Now) > 12, Hour(Now) - 12, Hour(Now))
    Label2 = tmp$ & Format(Now, ":nn:ss AM/PM")
End Sub

Я понимаю, что с AM/PM-форматом возможно наверно и попроще, но это как минимум выход из положения.

[tyomitch]

Справка по форматам есть, например, тут: http://www.horrible.demon.co.uk/asp/formats.htm
А на MSDN-е её вроде бы и нет

[tyomitch]

Код: Выделить всё

tmp$ = IIf(Hour(Now) > 12, Hour(Now) - 12, Hour(Now))

Я понимаю, что с AM/PM-форматом возможно наверно и попроще, но это как минимум выход из положения.

Однозначно можно

Код: Выделить всё

tmp$ = (Hour(Now) - 1) Mod 12 + 1

[DVV]

Как менять форматы я знаю,но как это можно применить в прграмме!
Чтобы пользователь мог выбрать формат времени!

[tyomitch]

Ну... Чекбокс на форму положить?
Или тебе системные установки менять надо?

[DVV]

Да чекбокс,а дальше что!Как время изменять!

[tyomitch]

Да какое время-то? Системное? То, что на часиках в углу панели задач? Или где?

[DVV]

Нет не системное!

[tyomitch]

Ну так а какое?
Я тебе помочь хочу, а приходится как партизана пытать.

[DVV]

Время именно в программе.Я видел где-то ,что это досигается при помощи констант!
А как это сделать не знаю!

[GSerg]

Тёмыч...
Что он хочет, объясни мне...

[DVV]

я сам объясню!
Мне надо в про-ме исп-ть время разл-х форматов
24 и 12.Как менять форматы,я знаю!Но мне надо через переменную!допустим mytime.
Mytime=format(time,"hh:mm:ss") и Mytime=format(time,"hh:mm:ss am/pm")
Я не хочу чтобы через каждую секунду происходила проверка-какой формат!
А просто выводилась переменная в определённом формате!

[GSerg]

[tyomitch]

Нет, DVV, при помощи одних только констант, без кода, удастся достигнуть только Дзена...
Вывод: код придётся-таки писать. И таки да, он каждый раз будет выполняться.

[A.A.Z.]

На крайняк можно сделать переменную (S$), если пользователь хочет AM/PM, то запихать туда " am/pm", а если не хочет, то ничего, и использовать MyTime = Format(Time, "hh:mm:ss" & S)

[DVV]

А как можно менять формат системного времени?

[GSerg]

Его нельзя менять, потому что его нет. Double он и есть double.

[tyomitch]

SetLocaleInfo(LOCALE_STIMEFORMAT)

[GSerg]

А, в этом смысле...
Но, если честно, я так и не понял, чего ему всё-таки надо...

[DVV]

Я хочу менять формат системного времени (24 или 12.)
Например:12:00:00 am ;24:00:00
Чтобы в настройках windows менялся формат.

[Ruslan Demidow]

А, в этом смысле...
Но, если честно, я так и не понял, чего ему всё-таки надо...

Насколько я понял, человеку не хочется в таймере каждый раз проверять какой формат времени используется.
Если я прав, тогда это можно решить так:
Создаём строковую переменную, например MyTimeFormat$. В неё загоняем строку формата (например "hh:mm:ss" или "hh:mm:ss am/pm"), в общем тот который задал пользователь. А во всех лабелах или других надписях используем данную переменную.
Т.е. пишем не Label1.Caption=Now, а Label1.Caption=Format(now,MyTimeFormat$).
Таким образом формат меняется только при изменении настроек и проверяется только на корректность там же. В остальном - всё так же.
Хотя, конечно, всё равно будут преобразования при выводе (то же форматирование).

[DVV]

Мне надо время системное поменять формат!
(Window-е настройки).Чтобы в правом нижнем углу PC менялся формат.

[FaKk2]

Мне надо время системное поменять формат!
(Window-е настройки).Чтобы в правом нижнем углу PC менялся формат.

One page before...

Да какое время-то? Системное? То, что на часиках в углу панели задач? Или где?

Нет не системное!

Так быть или не быть?

[tyomitch]

Я хочу менять формат системного времени (24 или 12.)
Например:12:00:00 am ;24:00:00
Чтобы в настройках windows менялся формат.

Вот:

Код: Выделить всё

Option Explicit
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) 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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const LOCALE_NEUTRAL = 0&
Private Const LOCALE_USER_DEFAULT = 1&
Private Const LOCALE_SYSTEM_DEFAULT = 2&
Private Const LOCALE_STIMEFORMAT = &H1003&
Private Const LOCALE_S1159 = &H28&
Private Const LOCALE_S2359 = &H29&

Sub Main()
Dim Format As String * 256
'узнать
GetLocaleInfo LOCALE_NEUTRAL, LOCALE_STIMEFORMAT, Format, 256
Debug.Print Format
'поменять на кривое
SetLocaleInfo LOCALE_NEUTRAL, LOCALE_S1159, "AM"
SetLocaleInfo LOCALE_NEUTRAL, LOCALE_S2359, "PM"
SetLocaleInfo LOCALE_NEUTRAL, LOCALE_STIMEFORMAT, "hh:mm:ss tt"
Debug.Print Time
Sleep 5000
'поменять обратно на нормальное
SetLocaleInfo LOCALE_NEUTRAL, LOCALE_STIMEFORMAT, Format
End Sub


Как заставить ещё и часы перерисоваться, с ходу не скажу.