Author: Jonas Bilinkevicius

Is there a possibility to check if a date exists (e.g. 35.3.2001)?

Answer:
1   
2   function DateExists(Date: string; Separator: char): Boolean;
3   var
4     OldDateSeparator: Char;
5   begin
6     Result := True;
7     OldDateSeparator := DateSeparator;
8     DateSeparator := Separator;
9     try
10      try
11        StrToDate(Date);
12      except
13        Result := False;
14      end;
15    finally
16      DateSeparator := OldDateSeparator;
17    end;
18  end;
19  
20  procedure TForm1.FormCreate(Sender: TObject);
21  begin
22    if DateExists('35.3.2001', '.') then
23    begin
24      {your code}
25    end;
26  end;