whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

39 Visitors Online


 
...check if a string is a valid date or time?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Print tip ]  

Tip Rating (18):  
     


{
  Das akzeptierte Format von StrToDate und StrToTime wird in den globalen Variablen
  DateSeparator und ShortDateFormat definiert.

  The accepted format of StrToDate and StrToTime is defined in the global
  variables DateSeparator and ShortDateFormat
}

function IsDate(str: string): Boolean;
var
  
dt: TDateTime;
begin
  
Result := True;
  try
    
dt := StrToDate(str);
  except
    
Result := False;
  end;
end;

function IsTime(str: string): Boolean;
var
  
dt: TDateTime;
begin
  
Result := True;
  try
    
dt := StrToTime(str);
  except
    
Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if 
IsDate('24.07.2001') then
  begin
    
ShowMessage('Yes, it is a date.');
  end;

  if IsTime('16:23') then
  begin
    
ShowMessage('Yes, it is a time.');
  end;
end;


 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners