Перевод числа в часы и минуты

Форумы Помощь по пакетуПеревод числа в часы и минуты ← Ctrl1 23Ctrl →

Этот топик читают: Гость

Ответов: 91

Рейтинг: 0

#31: 2017-06-16 15:05:00 ЛС | профиль | цитата

А как узнать дату следующего дня(суток) ?
Например компонент Time системное время выдает 2017-06-30 пятница, тогда следующие сутки будут 2017-07-01 суббота.

карма: 0

Ответов: 4621

Рейтинг: 746

#32: 2017-06-16 15:41:04 ЛС | профиль | цитата

Берешь дату с точки Time.DateTime, прибавляешь 1 и получаешь искомую.

карма: 26

Ответов: 91

Рейтинг: 0

#33: 2017-06-16 17:03:59 ЛС | профиль | цитата

Я думал что можно легко реализовать, но не на столько. 2017-06-30 + 1 = 2017-06-31 , а в 2017-06 всего 30 дней. Видел компонент(не могу найти где), который показывает дни в месяце и вроде как сопряженную неделю, без него никак?

Это я к строке наверное прибавил.

Редактировалось 1 раз(а), последний 2017-06-16 18:11:16

карма: 0

Ответов: 8887

Рейтинг: 823

#34: 2017-06-16 17:24:16 ЛС | профиль | цитата

wvlas,


Add(DateConvertor,1781583,203,119)
{
 Mode=8
}

карма: 19

Ответов: 4621

Рейтинг: 746

#35: 2017-06-16 17:41:09 ЛС | профиль | цитата


Add(Button,14502851,203,490)
{
 Left=45
 Top=50
 link(onClick,5586351:doData,[])
}
Add(Label,14817988,399,490)
{
 Left=130
 Top=50
}
Add(DateConvertor,6983200,350,490)
{
 Mode=9
 link(onResult,14817988:doText,[])
}
Add(Label,8617182,448,546)
{
 Left=130
 Top=75
}
Add(DateConvertor,11371389,392,546)
{
 Mode=9
 link(onResult,8617182:doText,[])
}
Add(Hub,432554,301,490)
{
 link(onEvent1,6983200:doConvert,[])
 link(onEvent2,5207009:doOperation,[(333,503)(333,552)])
}
Add(Math,5207009,350,546)
{
 Op2=1
 link(onResult,11371389:doConvert,[])
}
Add(Time,13257569,252,441)
{
 Point(DateTime)
}
Add(DoData,5586351,259,490)
{
 link(onEventData,432554:doEvent1,[])
 link(Data,13257569:DateTime,[])
}

карма: 26

Ответов: 91

Рейтинг: 0

#36: 2017-06-16 18:07:46 ЛС | профиль | цитата

Проще некуда, пока опять не начитался про 1600


Add(MainForm,2953706,308,231)
{
 Width=359
 Height=188
 link(onCreate,15871263:doEvent1,[])
}
Add(Edit,16646527,497,287)
{
 Left=95
 Top=85
 Width=145
}
Add(Math,13534283,399,287)
{
 Op2=15
 link(onResult,1781583:doConvert,[])
 link(Op1,6643930:Var2,[])
}
Add(Time,1098714,392,189)
{
 Format="dd-MM-yyyy"
 Point(DateTime)
}
Add(DateConvertor,1781583,448,287)
{
 Mode=9
 link(onResult,16646527:doText,[])
}
Add(Edit,14119366,497,245)
{
 Left=95
 Top=25
 Width=145
}
Add(GetDataEx,6643930,399,224)
{
 link(Data,1098714:DateTime,[])
}
Add(Hub,15871263,357,245)
{
 link(onEvent1,1627758:doConvert,[])
 link(onEvent2,13534283:doOperation,[(385,258)(385,293)])
}
Add(DateConvertor,1627758,448,245)
{
 Mode=9
 Point(Data)
 link(onResult,14119366:doText,[])
 link(Data,6643930:Var3,[(454,229)])
}
Add(Label,2445500,497,196)
{
 Left=140
 Top=60
 Caption="Time+15"
}

карма: 0

Ответов: 16884

Рейтинг: 1239

#37: 2017-06-16 18:39:41 ЛС | профиль | цитата

Add(MainForm,2953706,112,112)
{
 Width=253
 Height=95
}
Add(DatePicker,5737063,266,112)
{
 Left=10
 Top=15
 Width=220
 Height=21
 Font=[MS Sans Serif,10,1,0,1]
 Enabled=1
 DateFormat=1
 DateMode=1
 SetDateOnChange=1
 Point(DateInt)
}
Add(Math,8848227,203,112)
{
 Op2=1
 ResultType=0
 link(onResult,5737063:doSetDate,[])
 link(Op1,5737063:DateInt,[(209,100)(246,100)(246,154)(272,154)])
}
Add(Timer,10298947,161,112)
{
 link(onTimer,8848227:doOperation,[])
}

Редактировалось 1 раз(а), последний 2017-06-16 18:47:28

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 91

Рейтинг: 0

#38: 2017-06-16 18:55:43 ЛС | профиль | цитата

Tad,
подтвердил

карма: 0

Форумы Помощь по пакетуПеревод числа в часы и минуты ← Ctrl1 23Ctrl →


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