Is not a valid date and time 不是有效的日期格式

07-22

Is not a valid date and time 不是有效的日期格式分類： Delphi 2012-03-20 17:12 7051人閱讀評論(0) 收藏舉報 datestring

方法一:

var sTime: TDateTime; s1: String;begin //沒有下面兩行時轉換會出錯 ShortDateFormat := "yyyy-MM-dd"; DateSeparator := "-"; // s1 := "2012-03-20 12:30:40"; sTime := StrToDateTime(s1) + 1; ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",sTime));end;

方法二：

uses SysUtils

var sTime: TDateTime; s1: String; aDateTimeFormat: TFormatSettings;begin //設定轉換格式 aDateTimeFormat.DateSeparator := "-"; aDateTimeFormat.ShortDateFormat := "yyyy-mm-dd"; aDateTimeFormat.TimeSeparator := ":"; aDateTimeFormat.ShortTimeFormat := "hh:mm:ss";

s1 := "2012-03-20 12:30:40"; sTime := StrToDateTime(s1, aDateTimeFormat) + 1; ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",sTime));end;