VPF::Как сменить время? - Форум программистов

Errorx1

Дата 18.5.2006, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 3.4.2006

Репутация: нет
Всего: нет

Нужно сменить время которое в нижнем левом углу smile

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

Exception

Дата 18.5.2006, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186

Цитата(Errorx1 @ 18.5.2006, 01:19

)

как системное время менять я в курсе а вот часовой пояс нет

Смотря, как ты меняешь. Давай ближе к конкретике.

Errorx1

Дата 18.5.2006, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 3.4.2006

Репутация: нет
Всего: нет

Вот код по смене СИСТЕМНОГО времени, системное время совсем другое и отличаеться от того что в правом нижнем углу smile

Код


Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
Structure SYSTEMTIME
    <MarshalAs(UnmanagedType.U2)> _
    Dim wYear As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wMonth As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wDayOfWeek As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wDay As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wHour As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wMinute As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wSecond As Short
    <MarshalAs(UnmanagedType.U2)> _
    Dim wMilliseconds As Short
End Structure

Public Class Form1

    Private Declare Function SetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As Int32
    Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SysTime As New SYSTEMTIME
        'Тут получаем системное время
        GetSystemTime(SysTime)
        'Отнимаем от системного времени 3 часа
        SysTime.wHour -= 3
        'Устанавливаем новое время
        SetSystemTime(SysTime)
    End Sub

End Class

Вот так я меняю время, НО если у меня сейчас 3.00 PM (у меня по USA) и я пишу строку кода:

Код


SysTime.wHour=4

то у меня не будет 4.00 а произойдет расчёт, +/- мой часовой пояс, вот тут и проблема, это очень неудобно выщитывать какой щас часовой пояс, есть реально простой способ? просто взять и сменить время, не учитывая часовой пояс?

ivashkanet

Дата 3.6.2006, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Кодю потиху

Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149

GetTimeZoneInformation
Тебе в помощь
P.S. Если в set и gettime разобрался, то и в get zone разберешься smile

--------------------

design, simplicity, and experience with a technology focus

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »