Hi,

I tried the code below but it never gets into the exception:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  S : DateTime;
begin
  try        
     S := StrToDate(Edit1.Text);
     ShowMessage(DateToStr(S) + ' is a valid date');
  except
     ShowMessage('Invalid date!');
  end;
end;

Best regards,
Sergei Safar

> I tried the code below but it never gets into the exception:

1. What dates are you entering?

2. Have a look at the framework code to see what it is doing.

3. Give them a date picker - I think I saw someone post one in the
attachments topic. Wouldn't be hard to do anyway and much more reliable.

--
Matthew Jones

Sergei,

> I tried the code below but it never gets into the exception:

Because there isn't any exception to raise: it's different from Delphi.
In Javascript you will get "NaN" ( = NotANumber, which is a string)
instead of an exception.

Didn't you see "NaN/NaN/NaN is a valid date" in your first ShowMessage?

Uli

Hi Matthew,

thanks for the reply.  

> 3. Give them a date picker - I think I saw someone post one in the
attachments topic. Wouldn't be hard to do anyway and much more reliable.

Datepick2 in the Elevate Web Builder Demos and Examples did the job. Thank you.

Best Regards,
Sergei Safar

Hi Uli,

> Didn't you see "NaN/NaN/NaN is a valid date" in your first ShowMessage?

Yes, that's right. The NaN's were there. I need to open my mind: Delphi <> JS

Best regards,
Sergei Safar