Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#1: 2009-01-18 00:14:57 ЛС | профиль | цитата
Определение количества дней в месяце.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
5
файлы: 1daysinmonth.rar [1KB] [479]
Голосовали:afandi, Karl, filyaxxxcom, Валерий, EcsTasY
vip
#1.1контекстная реклама от партнеров
Администрация
Ответов: 15294
Рейтинг: 1518
#2: 2009-01-18 00:41:25 ЛС | профиль | цитата
такой элемент надо полнее делать: дней в месяце, дней в году, день недели по дате и т.д.
карма: 26
0
Ответов: 387
Рейтинг: 34
#3: 2009-01-18 00:50:23 ЛС | профиль | цитата
Dilma писал(а):
надо полнее делать

согласен но даже за такой компонент +1
с чего-то нужно начать а компонент очень нужный к тому же работает c FPC что тоже радует)
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2009-01-18 01:08:07 ЛС | профиль | цитата
Karl, где-то есть у меня и компонент "день недели по дате ". Найду - выложу.
А валить все в одну кучу - не уверен, что такое оправдано.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 387
Рейтинг: 34
#5: 2009-01-18 01:18:07 ЛС | профиль | цитата
Tad писал(а):
А валить все в одну кучу - не уверен, что такое оправдано
согласен,
но полнее можно сделать, используя несколько независимых компонентов...
Tad писал(а):
Найду - выложу
Спасибо.
карма: 0

0
Ответов: 8888
Рейтинг: 823
#6: 2009-01-18 12:19:20 ЛС | профиль | цитата
Tad, рад видеть (читать), в свете последних событий решил, что смогу увидеть только по телевизору в репортажах с театра
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#7: 2010-03-01 14:18:23 ЛС | профиль | цитата
Обновил
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
3
файлы: 1daysin.rar [1.6KB] [344]
Голосовали:Ravilr, Genius, filyaxxxcom
Ответов: 16884
Рейтинг: 1239
#8: 2010-03-20 11:35:22 ЛС | профиль | цитата
Всё то же.
Просто нашел функцию в KOL и ... переделал pas-файл.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1daysinnew.rar [1.6KB] [388]
Голосовали:Konst
Ответов: 490
Рейтинг: 162
#9: 2018-05-16 21:16:33 ЛС | профиль | цитата
Tad писал(а):
где-то есть у меня и компонент "день недели по дате ". Найду - выложу.

Tad,пожалуйста если есть возможность, выложи...
карма: 4

0
Ответов: 16884
Рейтинг: 1239
#10: 2018-05-17 07:46:43 ЛС | профиль | цитата
Инструменты -> DateConvertor
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 490
Рейтинг: 162
#11: 2018-05-17 12:57:07 ЛС | профиль | цитата
Tad писал(а):
Инструменты -> DateConvertor

Tad, подскажите пожалуйста чего-то я не до понимаю , к примеру имеется дата в формате 14.03.2018 знаю что среда, а как при помощи DateConvertor получить - среда
карма: 4

0
Ответов: 4621
Рейтинг: 746
#12: 2018-05-17 13:22:19 ЛС | профиль | цитата
Mode=XXXToHeapInt, скрытая точка DayOfWeek должна выдать день недели.
карма: 26

0
Ответов: 490
Рейтинг: 162
#13: 2018-05-17 22:53:34 ЛС | профиль | цитата
Netspirit писал(а):
Mode=XXXToHeapInt, скрытая точка DayOfWeek должна выдать день недели.

Netspirit,Посмотрите пожалуйста чего не так?

Add(DateConvertor,12315237,301,140)
{
Point(DayOfWeek)
link(onResult,4056124:doText,[])
AddHint(-2,-28,111,13,Mode)
}
Add(Edit,4056124,371,140)
{
Left=265
Top=85
Text="0"
link(Str,12315237:DayOfWeek,[(377,128)(346,128)(346,184)(307,184)])
}
Add(Hub,16289800,217,70)
{
OutCount=4
link(onEvent1,6996459:doText,[])
link(onEvent2,12315237:doConvert,[(283,83)(283,146)])
link(onEvent3,5885672:doConvert,[(269,90)(269,230)])
link(onEvent4,7742221:doConvert,[(254,97)(254,321)])
}
Add(DateConvertor,5885672,308,224)
{
Mode=4
Point(DayOfWeek)
link(onResult,9243832:doText,[])
AddHint(2,-30,96,13,Mode)
}
Add(Edit,9243832,378,224)
{
Left=265
Top=110
Text="0"
link(Str,5885672:DayOfWeek,[(384,217)(361,217)(361,273)(314,273)])
}
Add(DateConvertor,7742221,308,315)
{
Mode=12
Point(DayOfWeek)
link(onResult,14092553:doText,[])
AddHint(-2,-25,110,13,Mode)
}
Add(Edit,14092553,378,315)
{
Left=265
Top=135
Text="0"
link(Str,7742221:DayOfWeek,[(384,306)(362,306)(362,362)(314,362)])
}
Add(DatePicker,14189602,91,70)
{
Left=30
Top=35
Width=130
Height=21
DateMode=1
link(onChange,7586909:doConvert,[])
}
Add(Edit,6996459,308,70)
{
Left=165
Top=35
Width=160
Text=" "
}
Add(DateConvertor,7586909,161,70)
{
Mode=9
Format="dd.MM.yyyy"
link(onResult,16289800:doEvent1,[])
}


Редактировалось 1 раз(а), последний 2018-05-17 22:54:43
карма: 4

0
Ответов: 9906
Рейтинг: 351
#14: 2018-05-18 09:10:21 ЛС | профиль | цитата
Add(Edit,4056124,350,126)
{
Left=265
Top=85
Text="0"
link(Str,7586909:DayOfWeek,[])
}
Add(DatePicker,14189602,238,77)
{
Left=30
Top=35
Width=130
Height=21
DateMode=1
link(onChange,16289800:doEvent1,[])
}
Add(Edit,6996459,399,77)
{
Left=165
Top=35
Width=160
Text=" "
}
Add(DateConvertor,7586909,350,77)
{
Mode=9
Format="dd.MM.yyyy"
Point(DayOfWeek)
link(onResult,6996459:doText,[])
}
Add(Hub,16289800,301,77)
{
link(onEvent1,7586909:doConvert,[])
link(onEvent2,4056124:doText,[(340,90)(340,132)])
}

--- Добавлено в 2018-05-18 09:28:34

Netspirit писал(а):
Mode=XXXToHeapInt, скрытая точка DayOfWeek должна выдать день недели

Мне показалось по другому: скрытая точка DayOfWeek должна выдать день недели после применения метода doConvert
Для каких данных doConvert применил, для той даты день недели и получишь...
((грубо говоря -- нефиг ему на вход всякую хрень совать-то))

Редактировалось 5 раз(а), последний 2018-05-18 09:31:59
карма: 9

0
Ответов: 4621
Рейтинг: 746
#15: 2018-05-18 10:59:30 ЛС | профиль | цитата
Galkov писал(а):
Для каких данных doConvert применил, для той даты день недели и получишь...
Ну, я поверил описанию точки. Можно и поправить, типа, "После вызова метода doConvert возвращает день недели (номер) для поданной на вход метода даты".
карма: 26

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)