ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с датами
14 сообщений из 64, страница 3 из 3
  3  все
Работа с датами
    #37315084
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
JeiDeeа мне надо число целых лет
Посмотрите здесь Расстояние между двумя датами
ЧислоЦелыхЛет=Val(FAge(Date1, Date2))
...
Рейтинг: 0 / 0
19.06.2011, 22:44
| Ответить | Цитировать | Написать  
Работа с датами
    #37315111
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
mds_worldJeiDeeа мне надо число целых лет
Посмотрите здесь Расстояние между двумя датами
ЧислоЦелыхЛет=Val(FAge(Date1, Date2))
Сделал вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim Dennow As Byte
Dim Mesyacnow As Byte
Dim Godnow As Integer
Dennow = Day(Date)
Mesyacnow = Month(Date)
Godnow = Year(Date)

A = (God & " " & Mesyac & " " & Den)
Anow = (Godnow & " " & Mesyacnow & " " & Dennow)
retval = CDate(A)
retvalnow = CDate(Anow)
Razn = DateDiff("yyyy", retval, retvalnow)
Label8.Caption = "Число целых лет: " & Razn
так корректно работает
осталось с 6 пунктом разобраться
...
Рейтинг: 0 / 0
19.06.2011, 23:33
| Ответить | Цитировать | Написать  
Работа с датами
    #37315144
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
JeiDee
Код: plaintext
1.
2.
3.
..............................
Razn = DateDiff("yyyy", retval, retvalnow)
Label8.Caption = "Число целых лет: " & Razn
..............................
так корректно работает
Придется вас разочаровать
Код: plaintext
1.
?datediff("yyyy","31-12-2010","01-01-2011")
  1
А должно быть 0...
...
Рейтинг: 0 / 0
20.06.2011, 00:21
| Ответить | Цитировать | Написать  
Работа с датами
    #37315153
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
mds_worldJeiDee
Код: plaintext
1.
2.
3.
..............................
Razn = DateDiff("yyyy", retval, retvalnow)
Label8.Caption = "Число целых лет: " & Razn
..............................
так корректно работает
Придется вас разочаровать
Код: plaintext
1.
?datediff("yyyy","31-12-2010","01-01-2011")
  1
А должно быть 0...
Хм... надеюсь не спалят )))
вот так сделал
...
Рейтинг: 0 / 0
20.06.2011, 00:43
| Ответить | Цитировать | Написать  
Работа с датами
    #37315154
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
JeiDeemds_worldпропущено...

Придется вас разочаровать
Код: plaintext
1.
?datediff("yyyy","31-12-2010","01-01-2011")
  1
А должно быть 0...
Хм... надеюсь не спалят )))
вот так сделал
Если сможете подправить будет здорово)
...
Рейтинг: 0 / 0
20.06.2011, 00:44
| Ответить | Цитировать | Написать  
Работа с датами
    #37315335
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
блин как о стену горох... зачем возиться со спец функциями, дорабатывать их и надеяться, что будет работать, если узнать число целых лет можно двумя элементарными строчками, написанными выше? просто в две переменные(если не нра текстбоксы) запихать год & месяц & число а потом вычесть из одного другое??? например 20110620 - 20090520 = 20100. затем делишь на 10000 = 2. 2целых года... или в программировании не принято идти лёгкими путями?) 3 страницу уже изобретаете новую ОС
...
Рейтинг: 0 / 0
20.06.2011, 09:40
| Ответить | Цитировать | Написать  
Работа с датами
    #37316513
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero, да Вы посмотрите на его задание в вопросе, 6 пунктов, человек учится, старается, что его сбивать, ему много чего надо
> затем делишь на 10000
первый раз такое вижу, а почему затем делишь на 10000??
...
Рейтинг: 0 / 0
20.06.2011, 18:34
| Ответить | Цитировать | Написать  
Работа с датами
    #37316564
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
автору для затравки: http://www.cyberforum.ru/visual-basic/thread322867.html
...
Рейтинг: 0 / 0
20.06.2011, 18:51
| Ответить | Цитировать | Написать  
Работа с датами
    #37316571
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ципихович Эндрюпервый раз такое вижу, а почему затем делишь на 10000??
Эндрю, а ВЫ читаете внимательно советы?
10000 - потому что значение до 9999 - это месяц и число.
...
Рейтинг: 0 / 0
20.06.2011, 18:55
| Ответить | Цитировать | Написать  
Работа с датами
    #37318664
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
я же отписал по всем пунктам ещё на 1 странице топика. про деление сразу забыл написать
...
Рейтинг: 0 / 0
21.06.2011, 18:49
| Ответить | Цитировать | Написать  
Работа с датами
    #37324626
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
чего это он сегодня затупил:
Дата = Format(Day(Date), "dd")
Дата = 24

____________________________
Оклиптик отдыхает
Dim Дата As Byte
Дата = Format(Day(Date), "dd")
Эффет тот же
...
Рейтинг: 0 / 0
25.06.2011, 12:06
| Ответить | Цитировать | Написать  
Работа с датами
    #37324636
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Бред номер один - форматирование обычного числа как даты
Бред номер два - присвоение строки числовой переменной, в результате чего форматирование бессмысленно вообще

когда же ты уже типы данных выучишь
...
Рейтинг: 0 / 0
25.06.2011, 12:20
| Ответить | Цитировать | Написать  
Работа с датами
    #37324672
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, уже и выучил:
Код: plaintext
1.
2.
Dim День_даты_00 As String
День_даты_00 = Format(Day(Date), "00")
Взлетаем
...
Рейтинг: 0 / 0
25.06.2011, 13:26
| Ответить | Цитировать | Написать  
Работа с датами
    #37324977
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ципихович Эндрю,

В принципе, достаточно изучить формат хранения даты в основных БД. Можно только "в популярных". Млжно вообще во всех форматах. ИБО - как-то они хранятся, и есть принцип пребразования...

Ф вот, скажем, никогда не заморачивался с преобразованием дат с того момента, пока не посмотрел, как они там в HEX-формате хранятся. И усё - зачем придумывать что-то, вместо того, чтобы прочесть...
...
Рейтинг: 0 / 0
26.06.2011, 01:36
| Ответить | Цитировать | Написать  
14 сообщений из 64, страница 3 из 3
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с датами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37316571&tid=2158592]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 358ms
total:  480ms
созд. / загр.: 480ms
x
x
Закрыть


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