Форум: "Начинающим";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Внизфункция или процедура проверяющая правельность введеной даты Найти похожие ветки
← →
FIL-23 © (2007-05-18 10:39) [0]Нужна процедура которая проверялабы правельность введеной даты т.е. если я введу 30.02.2009 или 40.33.1941 он мне выдал бы ошибку, чтобы естественно считала высокосный год или нет. Зарание спасибо
← →
Плохиш © (2007-05-18 10:48) [1]strtodate
← →
Sergey13 © (2007-05-18 10:53) [2]> [0] FIL-23 © (18.05.07 10:39)
Почему бы не водить в специальные контролы типа датетаймпикера?
← →
FIL-23 © (2007-05-18 10:59) [3]
> Плохиш © (18.05.07 10:48) [1]
>
> strtodate
а результат об ошибке у него в какой переменной лежит?
← →
Плохиш © (2007-05-18 11:03) [4]
> FIL-23 © (18.05.07 10:59) [3]
>
> > Плохиш © (18.05.07 10:48) [1]
> >
> > strtodate
>
> а результат об ошибке у него в какой переменной лежит?
Ответ на этот вопрос будет твоим домашним заданием на умение пользоваться справкой.
← →
Правильный Вася (2007-05-18 11:05) [5]
> а результат об ошибке у него в какой переменной лежит?
E: Exception
← →
stakan © (2007-05-18 11:12) [6]IsValidDate
← →
FIL-23 © (2007-05-18 12:33) [7]народ напишите пожалуста какой тип у переменной резултат strtodate, ну и как это выглядит. (Exception пробовал, не то)
← →
В.И.Ленин (2007-05-18 12:39) [8]RTFM!!!!
← →
FIL-23 © (2007-05-18 14:35) [9]
// регистрация новой даты если она введена корректно
if vvod_new_data=true then
begin
if vvedena_data1=true then
begin
try
vvod_new_data_data2_str:=STRTODATE(edit1.Text);
vvedena_data2:=true;
vvod_new_data:=false;
REG_PRGD2:=true;
i_vvod_new_data:=0;
panel29.Color:=clBtnFace;
panel30.Color:=clBtnFace;
panel31.Color:=clBtnFace;
panel32.Color:=clBtnFace;
panel33.Color:=clBtnFace;
panel34.Color:=clBtnFace;
panel35.Color:=clBtnFace;
panel36.Color:=clBtnFace;
except
//my_sound_error();
vvedena_data2:=false;
end;
end else
begin
try
vvod_new_data_data1_str:=strtodate(edit1.Text);
vvedena_data1:=true;
vvod_new_data:=false;
REG_PRGD2:=true;
i_vvod_new_data:=0;
panel29.Color:=clBtnFace;
panel30.Color:=clBtnFace;
panel31.Color:=clBtnFace;
panel32.Color:=clBtnFace;
panel33.Color:=clBtnFace;
panel34.Color:=clBtnFace;
panel35.Color:=clBtnFace;
panel36.Color:=clBtnFace;
EDIT1.Text:=sistemnaya_data;
memo1.Lines.Add("ПОВТОРИТЕ");
memo1.Lines.Add("ВВОД ДАТЫ");
memo1.Lines.Add(#10#13);
except
vvedena_data1:=false;
// my_sound_error();
end;
end;
if (vvedena_data1=true)and(vvedena_data2=true) then
begin
if vvod_new_data_data1_str=vvod_new_data_data2_str then
begin
sistemnaya_data:=DATETOSTR(vvod_new_data_data1_str);
EDIT1.Text:=sistemnaya_data;
end else
begin
vvod_new_data_data1_str:=vvod_new_data_data2_str;
vvedena_data2:=false;
EDIT1.Text:=sistemnaya_data;
memo1.Lines.Add("ПОВТОРИТЕ");
memo1.Lines.Add("ВВОД ДАТЫ");
memo1.TEXT:=memo1.TEXT+#10#13;
end;
end;
end;
не хочет переходить на другую инструкцию если дата не верная :.(
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.045 c