INPUTPERIOD3 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «INPUTPERIOD3 - это программа из справочника R266 = Смотрите также = Полезные функции Функ…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[INPUTPERIOD3]] - это программа из справочника [[R266]] | [[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]] | [[Функции Delphi]] | ||
Текущая версия на 07:54, 12 октября 2017
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 } ;
}
