сравнение дат

Вверх ↑

Форумы Помощь по пакетусравнение дат ← Ctrl1Ctrl →

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

Гость

Ответов: 17029

Рейтинг: 0

#1: 2013-12-14 13:29:47 правка | ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2021-05-22 06:06:21

карма: 0

Ответов: 8926

Рейтинг: 823

#2: 2013-12-14 14:36:49 ЛС | профиль | цитата

isg-brass5-213-242-2-112., говорящий IP, прежде всего ознакомиться с имеющимися компонентами по датам и времени, с логическим If_Else, внимательно и вдумчиво прочитать примечания к самим компонентам и точкам на них.
Ну и для понимания: дата в формате Real содержит в целой части количество полных дней прошедших с Рождества Христова, а дробная часть это часть текущего дня.

карма: 19

Ответов: 16884

Рейтинг: 1239

#3: 2013-12-14 15:32:29 ЛС | профиль | цитата

Леонид, и при чём здесь Рождество Христово ?
Кстати, родился он ночью 25 декабря, а 1-го января (на восьмой день) ему сделали обрезание

Повторюсь : и при чём здесь Рождество Христово ?
Такого бардака, как в летоисчислении, нет нигде.
Например:
1. Unix - количество дней (вернее секунд), прошедших с полночи (24:00) 31.12.1969 г.
2. Windows - количество дней, прошедших с полночи (24:00) 31.12.1899 г.
3. SQLite - количество дней, прошедших с полудня по Гринвичу с 24 ноября 4714г. до нашей эры.
4. HiAsm - вроде с даты принятия Григорианского календаря. Это nesco расскажет лучше. Я не вникал.

карма: 25

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

Ответов: 8926

Рейтинг: 823

#4: 2013-12-14 15:53:42 ЛС | профиль | цитата

Tad,
4. HiAsm: Дата в формате Real содержит в целой части количество полных дней прошедших с Рождества Христова, а дробная часть это часть текущего дня.


Add(MainForm,8432806,217,140)
{
}
Add(Time,3675723,273,140)
{
 Point(DateTime)
}
Add(Timer,10525970,224,189)
{
 link(onTimer,1547739:doText,[])
}
Add(Label,2518487,273,98)
{
 Left=70
 Top=15
 Width=71
 Height=17
 Caption="Сейчас [Real]"
}
Add(Label,7928868,238,98)
{
 Left=160
 Top=30
 Width=10
 Height=28
 Font=[MS Sans Serif,14,1,0,1]
 Caption="/"
}
Add(Edit,6617064,343,140)
{
 Left=170
 Top=35
 Text="365.2425"
}
Add(Label,10483732,350,98)
{
 Left=220
 Top=30
 Width=16
 Height=28
 Font=[MS Sans Serif,14,1,0,1]
 Caption="="
}
Add(Edit,8500114,434,189)
{
 Left=235
 Top=35
}
Add(Label,15503930,308,98)
{
 Left=175
 Top=15
 Width=41
 Height=17
 Caption="Дн/год"
}
Add(Label,1885576,392,98)
{
 Left=225
 Top=15
 Width=63
 Height=17
 Caption="Полных лет"
}
Add(Edit,1547739,280,189)
{
 Left=30
 Top=35
 Width=130
 link(onChange,3252101:doOperation,[])
 link(Str,3675723:DateTime,[])
}
Add(Math,3252101,336,189)
{
 OpType=3
 link(onResult,8284266:doOperation,[])
 link(Op2,6617064:Text,[])
}
Add(Math,8284266,385,189)
{
 OpType=35
 Op2=1
 link(onResult,8500114:doText,[])
}

карма: 19

Гость

Ответов: 17029

Рейтинг: 0

#5: 2013-12-14 16:33:39 правка | ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2021-05-22 06:06:21

карма: 0

Разработчик

Ответов: 26151

Рейтинг: 2127

#6: 2013-12-14 16:43:34 ЛС | профиль | цитата

isg-brass5-213-242-2-112. писал(а):

как это сделать?

Add(MainForm,2953706,119,161)
{
}
Add(Time,1013730,238,161)
{
 Point(DateTime)
}
Add(Edit,1617186,182,161)
{
 Left=30
 Top=10
 Width=190
 Text="2013-10-10"
}
Add(Math,6877990,245,217)
{
 OpType=37
 Op2=1
 link(onResult,16587419:doOperation,[])
 link(Op1,1013730:DateTime,[])
}
Add(DateConvertor,4221173,182,217)
{
 Mode=8
 Format="yyyy-MM-dd"
 Point(Data)
 Point(Result)
 link(onResult,6877990:doOperation,[])
 link(Data,1617186:Text,[])
}
Add(Math,16587419,308,217)
{
 OpType=1
 link(onResult,794083:doCompare,[])
 link(Op1,4221173:Result,[(314,208)(300,208)(300,257)(188,257)])
}
Add(Button,10233403,119,217)
{
 Left=85
 Top=35
 Width=80
 TabOrder=-1
 Caption="Сравнить"
 link(onClick,4221173:doConvert,[])
}
Add(Label,10404411,574,182)
{
 Left=245
 Top=10
 Caption=""
 AutoSize=1
}
Add(If_else,794083,364,217)
{
 Type=1
 link(onTrue,7809934:doWork1,[])
 link(onFalse,14110935:doCompare,[])
}
Add(ChanelToIndex,7809934,462,217)
{
 Count=3
 link(onIndex,12730376:doGetString,[])
}
Add(If_else,14110935,413,224)
{
 link(onTrue,7809934:doWork2,[])
 link(onFalse,7809934:doWork3,[])
}
Add(StrList,12730376,518,175)
{
 Strings=#7:прошлое|7:сегодня|7:будущее|
 Point(onGetString)
 Point(doGetString)
 link(onGetString,10404411:doText,[])
}