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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст)
 
(не показаны 2 промежуточные версии этого же участника)
Строка 1: Строка 1:
INPUTDATEANDTIME - это функция из справочника [[R266]]
+
[[INPUTDATEANDTIME]] - это функция из справочника [[R266]]
 
+
Ввод даты и времени
INPUTDATEANDTIME(_title:='Введите дату и время',  _time)
+
[[INPUTDATEANDTIME]]( _title:='Введите дату и время',  _time )
 
+
Ввод даты и времени
+
  
 
_title - заголовок
 
_title - заголовок
Строка 9: Строка 7:
 
_time - время по умолчанию
 
_time - время по умолчанию
  
результат: {date,time}
+
Результат: {date,time}
  
= Текст программы =
+
= Текст =
  
 
  parameters _title:='Введите дату и время', _time := 0
 
  parameters _title:='Введите дату и время', _time := 0
Строка 17: Строка 15:
 
  public d,t
 
  public d,t
 
   
 
   
  if Type('_InputDateAndTime')='U'
+
  if [[Type]]('_InputDateAndTime')='U'
   d := Date()
+
   d := [[Date]]()
 
  else
 
  else
 
   d := _InputDateAndTime[1]
 
   d := _InputDateAndTime[1]
Строка 32: Строка 30:
 
     {;
 
     {;
 
       {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},;
 
       {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},;
       {'PostBlk',"ValType(Assign)='D' and Year(Assign)>=2010 and Year(Assign)<=2025"};
+
       {'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}, ;
 
       {'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'};
+
       {'PostBlk','NewValue>=0 and NewValue<=23.59 and [[Frac]](NewValue)<=0.59'};
 
     };
 
     };
 
   }
 
   }
 
   
 
   
  if !InputProperty(_title,fld)
+
  if ![[InputProperty]](_title,fld)
 
   result:=nil
 
   result:=nil
 
   return
 
   return
Строка 54: Строка 52:
  
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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