INPUTDATEANDTIME — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
 
Строка 16: Строка 16:
 
   
 
   
 
  if [[Type]]('_InputDateAndTime')='U'
 
  if [[Type]]('_InputDateAndTime')='U'
   d := Date()
+
   d := [[Date]]()
 
  else
 
  else
 
   d := _InputDateAndTime[1]
 
   d := _InputDateAndTime[1]

Текущая версия на 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

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

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

Функции Delphi