Время и дата

[Teodor]

Есть пара вопросов по времени/дате

1. StrTodate как должна выглядеть строка, которую эта функция может корректно обработать.

2. SetDateFormat отвечает только за вывод, или от нее собсно зависит п.1

3. При SetDateFormat('dd.mm.yyyy');
S= DateToStr (date) = '27.03.2017', но StrToDate (S) = 31.03.2017 (не получилось).
Как правильно отработать строку в дату?

[Teodor]

Вопрос снимается... Натупил, не ту переменную принимал в роли даты. Все ОК.

[Teodor]

Зато есть новый... После StrToDate  DateTime.AsInt64 возвращает число дней с 01.01.1900 ?

[TeNQ]

У меня подобное было, когда я переменной типа DateTime присваивал явно время, а дату нет. Если дату не присвоить самому, то скадой присваивается по-умолчанию дата с каким то временным сдвигом относительно текущей даты. У меня был 1899 год месяц назад. А у вас сейчас 1900.

[Simple-Scada]

DateTime.AsInt64 возвращает число дней с 01.01.1900?

Число дней с 30 декабря 1899 года.

[Teodor]

У меня подобное было, когда я переменной типа DateTime присваивал явно время, а дату нет. Если дату не присвоить самому, то скадой присваивается по-умолчанию дата с каким то временным сдвигом относительно текущей даты. У меня был 1899 год месяц назад. А у вас сейчас 1900.

нене... мне был нужен абсолют даты (датавремя.AsLongWord). В линуховом формате я бы получил дикую цыфрь с точностью до мс, а тут всего "28 ххх" вот и засомневался. А что я получу если там еще и время будет указано?

[Simple-Scada]

А что я получу если там еще и время будет указано?

Тип TDateTime это тип Double, вещественное число, всё что в его левой части (целая часть) представляет собой количество дней с 30 декабря 1899 года, а правая (дробная часть) представляет время. Соответственно при взятии "датавремя.AsLongWord" будет произведено округление вещественного числа до ближайшего целого и Вы получите также число дней, но округленное с учетом времени.

[Teodor]

Обидный момент с календарем...

Дату там выбрать можно, а вот время не нашел как ввести, кроме как с клавиатуры, которой на объекте нету .

[Simple-Scada]

Здравствуйте.

В будущих обновлениях добавим виртуальную клавиатуру к вводу календаря.

[Teodor]

Здравствуйте.

В будущих обновлениях добавим виртуальную клавиатуру к вводу календаря.

Вообще, если кликнуть на календарике, то дата выбирается (правда, если переменная инициализировалась в 0, то получается обидно, т.к. заманаешьсе щелкать)

[Simple-Scada]

правда, если переменная инициализировалась в 0, то получается обидно, т.к. заманаешьсе щелкать

В последнем обновлении дата/время инициализируется началом сегодняшнего дня, это должно помочь.

[Teodor]

А нет возможности календарю добавить кнопку "Сегодня/Сейчас"? (При возможности)

[Simple-Scada]

Для этого можно добавить кнопку рядом с календарем, связать доп. переменную этой кнопки с переменной календаря и на OnClick написать универсальный скрипт, который, при необходимости, подойдет и для других таких кнопок календарей:

Код

begin
  if Sender is TM_Object then
    with Sender as TM_Object do
      if VariableEx <> nil then
        VariableEx.Value := Now;
end.

[Teodor]

Таки, да...  Костенею...  Идея зачетная... А заодно и кнопки "сегодня", "завтра", "через час", "завтрак", "обед", "ужин"...

Спасибо за идею