INPUTDATEANDTIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| (не показаны 4 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | INPUTDATEANDTIME - это функция из справочника [[R266]] | + | [[INPUTDATEANDTIME]] - это функция из справочника [[R266]] |
| − | + | Ввод даты и времени | |
| − | INPUTDATEANDTIME(_title:='Введите дату и время', _time) | + | [[INPUTDATEANDTIME]]( _title:='Введите дату и время', _time ) |
| − | + | ||
| − | + | ||
_title - заголовок | _title - заголовок | ||
| Строка 9: | Строка 7: | ||
_time - время по умолчанию | _time - время по умолчанию | ||
| − | + | Результат: {date,time} | |
| + | |||
| + | = Текст = | ||
| + | |||
| + | parameters _title:='Введите дату и время', _time := 0 | ||
| + | |||
| + | public d,t | ||
| + | |||
| + | if [[Type]]('_InputDateAndTime')='U' | ||
| + | d := [[Date]]() | ||
| + | else | ||
| + | d := _InputDateAndTime[1] | ||
| + | t := _InputDateAndTime[2] | ||
| + | endif | ||
| + | |||
| + | t := _time | ||
| + | |||
| + | local fld | ||
| + | |||
| + | fld:=; | ||
| + | {; | ||
| + | {; | ||
| + | {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},; | ||
| + | {'PostBlk',"[[ValType]](Assign)='D' and [[Year]](Assign)>=2010 and [[Year]](Assign)<=2025"}; | ||
| + | },; | ||
| + | {; | ||
| + | {'FldName','t'},{'FldType','N'},{'CommonTitle','1'},{'FldTitl','Время'},{'FldLen',5},{'Default',t},{'FldDec',2}, ; | ||
| + | {'PostBlk','NewValue>=0 and NewValue<=23.59 and [[Frac]](NewValue)<=0.59'}; | ||
| + | }; | ||
| + | } | ||
| + | |||
| + | if ![[InputProperty]](_title,fld) | ||
| + | result:=nil | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | result := {d,t} | ||
| + | |||
| + | if Type('_InputDateAndTime')='U' | ||
| + | Global _InputDateAndTime | ||
| + | endif | ||
| + | |||
| + | _InputDateAndTime := result | ||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 10:23, 10 мая 2017
INPUTDATEANDTIME - это функция из справочника R266
Ввод даты и времени
INPUTDATEANDTIME( _title:='Введите дату и время', _time )
_title - заголовок
_time - время по умолчанию
Результат: {date,time}
Текст
parameters _title:='Введите дату и время', _time := 0 public d,t if Type('_InputDateAndTime')='U' d := Date() else d := _InputDateAndTime[1] t := _InputDateAndTime[2] endif t := _time local fld fld:=; {; {; {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},; {'PostBlk',"ValType(Assign)='D' and Year(Assign)>=2010 and Year(Assign)<=2025"}; },; {; {'FldName','t'},{'FldType','N'},{'CommonTitle','1'},{'FldTitl','Время'},{'FldLen',5},{'Default',t},{'FldDec',2}, ; {'PostBlk','NewValue>=0 and NewValue<=23.59 and Frac(NewValue)<=0.59'}; }; } if !InputProperty(_title,fld) result:=nil return endif result := {d,t} if Type('_InputDateAndTime')='U' Global _InputDateAndTime endif _InputDateAndTime := result
