INPUTDATEANDTIME

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

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