was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

50 Visitors Online


 
...ein String auf ein gültiges Datum oder Zeit überprüfen?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Tip ausdrucken ]  

Tip Bewertung (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;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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