INPUTDATEANDTIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 13: | Строка 13: | ||
= Текст программы = | = Текст программы = | ||
| − | + | 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 | ||
= Смотрите также = | = Смотрите также = | ||
Версия 15:42, 2 сентября 2016
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
