INPUTPERIOD3

Материал из Фабиус wiki
Перейти к: навигация, поиск

INPUTPERIOD3 - это программа из справочника R266

Ввод диапазона дат с указанием часов и минут

INPUTPERIOD3( title := 'Введите диапазон' )

title - заголовок

Результат возвращается в виде

{ { дата, время }, { дата, время } }

Текст

parameters title := 'Введите диапазон'

local DescFld

public data1, time1, data2, time2

data1 := Date()
time1 := '00:00'
data2 := Date()
time2 := '24:00'

DescFld := { ;
  { { 'FldName', 'data1' }, { 'FldType', 'D' }, { 'CommonTitle', '1Дата  с' }, ;
    { 'FldLen', 8 }, { 'Default', data1 } }, ;
  { { 'FldName', 'time1' }, { 'FldType', 'C' }, { 'CommonTitle', '1' }, ;
    { 'FldLen', 5 }, { 'Default', time1 }, { 'Picture', '99:99' }, { 'FldTitl', 'время' } }, ;
  { { 'FldName', 'data2' }, { 'FldType', 'D' }, { 'CommonTitle', '2Дата по' }, ;
    { 'FldLen', 8 }, { 'Default', data2 } }, ;
  { { 'FldName', 'time2' }, { 'FldType', 'C' }, { 'CommonTitle', '2' }, ;
    { 'FldLen', 5 }, { 'Default', time2 }, { 'Picture', '99:99' }, { 'FldTitl', 'время' } } ;
}

if !InputProperty( title, DescFld )
  result := nil
  return
endif

result := { ;
  { data1, time1 }, ;
  { data2, time2 } ;
}

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

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

Функции Delphi