Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с датами? 
:(
    Опции темы
kentaro
Дата 10.2.2010, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Есть ли какие нибудь функции по работе с датами которые могут выдать вчерашнию дату,завтрешнию,и позавчерашнию?В MSDN ненашёл
PM MAIL   Вверх
diadiavova
Дата 10.2.2010, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
http://msdn.microsoft.com/ru-ru/library/system.datetime.aspx


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Pilger
Дата 11.2.2010, 00:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Да по моему там все как на ладони лежит. AddDays, AddHours и т.п. и т.д. говорят сами за себя.

Код

        Dim dat As DateTime = DateTime.Now
        MsgBox(dat.AddDays(1))
        MsgBox(dat.AddDays(-1))
        MsgBox(dat.AddDays(1).Day)
        MsgBox(dat.AddDays(-1).Day)



--------------------
Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.
PM MAIL ICQ   Вверх
BlindBandiit
Дата 11.2.2010, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(diadiavova @ 10.2.2010,  17:46)
http://msdn.microsoft.com/ru-ru/library/system.datetime.aspx

класс ссылочка  а такую справку  где можно  скачать??
PM MAIL   Вверх
diadiavova
Дата 11.2.2010, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
http://www.microsoft.com/downloads/details...;displaylang=ru


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
BlindBandiit
Дата 11.2.2010, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(diadiavova @ 11.2.2010,  21:47)
http://www.microsoft.com/downloads/details...;displaylang=ru

не финтулииииииииинчки   себе !! она весит  smile)

Это сообщение отредактировал(а) BlindBandiit - 11.2.2010, 23:50
PM MAIL   Вверх
kentaro
Дата 12.2.2010, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Из зачего не вызывается эта процедура,в тест давал вроде всё работает timeout в timer стоит маленький   
Код
If DateTime.Now = changetime Then
                Call TaskAlarm()
            End If?

Код

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Call Alarm()
        End Sub
        Private Sub Alarm()
            Dim today As DateTime = DateTime.Now
            Dim changetime As DateTime
            Dim vDateInterval As Double ' Кол-во 
            Dim vDateIntervalType As Integer ' Тип времени(минуты,часы,дни)
            If Not My.Settings.DateInterval = Nothing Then
                vDateInterval = My.Settings.DateInterval
            Else : Exit Sub
            End If
            If Not My.Settings.DateIntervalType = Nothing Then
                vDateIntervalType = My.Settings.DateIntervalType
            End If
            If vDateIntervalType = 0 Then
                changetime = today.AddMinutes(vDateInterval)
            ElseIf vDateIntervalType = 1 Then
                changetime = today.AddHours(vDateInterval)
            ElseIf vDateIntervalType = 2 Then
                changetime = today.AddDays(vDateInterval)
            End If
            If DateTime.Now = changetime Then
                Call TaskAlarm()
            End If
        End Sub
PM MAIL   Вверх
diadiavova
Дата 12.2.2010, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Дата содержит момент времени с точностью до миллисекунды. Если две даты отличаются хотябы на миллисекунду, то они не равны. Зато даты можно вычитать и проверять на сколько одна отличается от другой.

И оператор Call не нужен. Он не даёт ровным счётом ничего.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
kentaro
Дата 12.2.2010, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
diadiavova, Они неравны  DateTime.Now = changetime но поистечению времени они будут ведь равны?Как можна обрезать дату чтоб унеё формат был dd-mm-yyyy hh:mm?Наверное из-затого что на сикунду таймер опаздывает поэтому они никогда не сравняются

Это сообщение отредактировал(а) kentaro - 12.2.2010, 12:13
PM MAIL   Вверх
diadiavova
Дата 12.2.2010, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Ну я же объяснил: не надо проверять на равенство. Если тебе надо проверить на равенство с точностью до минуты, то вычитаешь одну дату из другой и проверяешь результат. Если он меньше минуты - считаешь даты равными.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Pilger
Дата 12.2.2010, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Честно говоря я вообще не понимаю как TaskAlarm() вообще когда либо может быть вызван. Перед сравнением ведь к Now прибавляешь (или отнимаешь) какой то отрезок времени, а после сравниваешь опять же с Now. Как они могут быть равны? Не очень понимаю смысла. Они могут быть равны (теоретически, ибо работа кода тоже затрачивает время) только, если дата останется неизменной.

Это сообщение отредактировал(а) Pilger - 12.2.2010, 15:23


--------------------
Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0535 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.