INPUTDATEANDTIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 40: | Строка 40: | ||
} | } | ||
| − | if !InputProperty(_title,fld) | + | if ![[InputProperty]](_title,fld) |
result:=nil | result:=nil | ||
return | return | ||
Версия 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
