将strtodatetime改为VarToDateTimeonverts a specified variant to a TDateTime value.UnitVariantsCategoryVariant support routinesDelphi syntax:function VarToDateTime(const V: Variant): TDateTime);C++ syntax:extern PACKAGE TDateTime __fastcall VarToDateTime(const Variant &V);DescriptionVarToDateTime converts the given variant to a TDateTime value. VarToDateTime raises an exception if the conversion fails.
SetLocaleInfo(LOCALE_SLONGDATE, LOCALE_SDATE, '-');设置为'YYYY-MM-DD'格式。————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————