如何將str轉換爲datetime？

Question

如何將「2012年8月2日18:53」轉換爲DateTime？

當我使用StrToDate用於將其轉換出現錯誤「無效的日期格式」

Answer 1

您可以使用VarToDateTime，它支持不同的時間（在Variants單元發現）格式德爾福的RTL沒有。 （它基於COM的日期支持例程，如在各種Microsoft產品中使用的日期支持例程）。我使用您提供的日期進行了測試，它確實將其正確轉換爲TDateTime。在Delphi 2007和XE2上進行測試。在當前documentation

program Project2; 

{$APPTYPE CONSOLE} 

{$R *.res} 

uses 
    SysUtils, Variants; 


var 
    DT: TDateTime; 
    TestDate: String; 

begin 
    TestDate := '02 August 2012 18:53'; 

    try 
    DT := VarToDateTime(TestDate); 
    { TODO -oUser -cConsole Main : Insert code here } 
    except 
    on E:Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
    Writeln(FormatDateTime('mm/dd/yyyy hh:nn', DT)); 
    Readln; 
end. 

更多信息，包括使用的另一個樣本（鏈接在該頁面的底部）。

注意功能Variants單位使用默認的用戶區域設置。如果不是'美國'，則上述字符串的轉換可能會失敗。在這種情況下，你最好直接從activex單位指定在美國地區撥打VarDateFromStr：

uses 
    sysutils, activex, comobj; 

var 
    TestDate: String; 
    DT: TDateTime; 
begin 
    try 
    TestDate := '02 August 2012 18:53'; 
    OleCheck(VarDateFromStr(WideString(TestDate), $0409, 0, Double(DT))); 
    Writeln(FormatDateTime('mm/dd/yyyy hh:nn', DT)); 
    Readln; 
    except 
    on E:Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
end.