INPUTDATEANDTIME

Материал из Фабиус wiki
Версия от 10:23, 10 мая 2017; Hisava (обсуждение | вклад) (Текст)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

Смотрите также

Полезные функции

Функции Delphi