如題

What do you want to do exactly? TDateTime is a floating point type and its value should be greater than zero.

不知你問什麼

try StrtoDate(value); except showmessage('error date'); end;

BorlandUser 你好    如果使用Delphi7可使用TryStrToDateTime來偵測轉換是否成功 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; overload; function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean; overload;

但我是用delphi 6,我有一個stringgrid的日期的欄位是供用者自己輸入,但如果他亂入那怎麼辦,所以要用驗證方法,那有什麼方法呢?

BorlandUser 你好

HELP找看看是否有TryStrToDateTime 函式,有則如下程式
Var
  d : TDate ;
Begin
  If TryStrToDateTime(StringGrid.Cells[x,y],d) Then 
    // 正確日期 且 d 即是轉換後的 Date 
  Else
    // 不符合日期格式
  或是
  If TryStrToDateTime(StringGrid.Cells[x,y],d,'yyyy/mm/dd') Then //依格式轉換
    // 正確日期 且 d 即是轉換後的 Date 
  Else
    // 不符合日期格式
End;
若沒有TryStrToDateTime函式則利用P.D.大大的方式
  try
    StrtoDate(StringGrid.Cells[x,y]);
    // 符合格式
  except
    // 不符合格式
    showmessage('error date');
  end;    

發表人 - chance36 於 2004/05/05 02:29:43