[AntoNechayuk]

Дано: строковая переменная.
Задача: определить является ли она датой формата TDateTime

[NIch]

Теория...
DateTime в делфи это число в формате LongDouble...
Целая часть элемента данных типа TDateTime соответствует количеству дней, прошедших с полночи 30 декабря 1899 года. Дробная часть элемента данных типа TDateTime соответствует времени дня.
Следующие примеры поясняют сказанное:
Значение.....Дата...........Время
0.............30.12.1899....00:00:00
0.5..........30.12.1899....12:00:00
1.5..........31.12.1899....12:00:00
-1.25.......29.12.1899....06:00:00
35431.0....01.01.1997....00:00:00

[Phedor]

Пример NIch-а не пройдет, т.к. значение longВщгиду можно записать любое, но это не значит что при преобразовании получим правильную дату.
Простейший способ

Код:

var
  d: TDateTime;
  s: string;
...
try
  d := StrToDateTime(s);
except
  Application.MessageBox('Введенная дата не корректна. Повторите ввод', 'Ошибочка', MB_OK or MB_ICONWARNING);
end;
...

[NIch]

Пример NIch-а не пройдет, т.к. значение LongDouble можно записать любое, но это не значит что при преобразовании получим правильную дату.

Поправлю, я не приводил пример определения даты, а всего лишь добавил немного теории...так для общего образования)))

[AntoNechayuk]

Функция TryStrToDateTime взята из StrToDateTime и блок try/except в данном случае бесмысленен)

мне нужна ошибка данного действия

[AntoNechayuk]

народ! есть вопрос:
1. Можно ли вытянуть дату из BIOS? Если да то как?
2. Ходят слухи, что можно прописать в материнку какое-то значение. Мне необходимо хотя бы флаг зашить. Это возможно? и КАК????

[Asinkrit]

Сообщение от AntoNechayuk

мне нужна ошибка данного действия

Ну и в чем проблема?)

Код:

  if not IsDateTime('10.10.2010 07:00:00') then 
    ShowMessage('Внимание: введенная строка не является датой!');

[Asinkrit]

Сообщение от AntoNechayuk

Дано: строковая переменная.
Задача: определить является ли она датой формата TDateTime

Код:

function IsDateTime(const S:String):boolean;
var
  zDate:TDateTime;
begin
  Result:=TryStrToDateTime(S, zDate);
end;

[AntoNechayuk]

всем спасибо.
С try\exept работает лучше всего.
Значит пусть так и будет.

[Asinkrit]

Сообщение от AntoNechayuk

всем спасибо.
С try\exept работает лучше всего.
Значит пусть так и будет.

Функция TryStrToDateTime взята из StrToDateTime и блок try/except в данном случае бесмысленен)

[Asinkrit]

Сообщение от AntoNechayuk

всем спасибо.
С try\exept работает лучше всего.
Значит пусть так и будет.

Функция TryStrToDateTime взята из StrToDateTime и блок try/except в данном случае бесмысленен)