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