Question

Delphi 日期格式转换 麻烦老师告知 如何使用？

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function mydate(): String;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

DateTimePicker1.DateTime := StrToDateTime(mydate);;

end;

function TForm1.mydate: String;
var
// 声明变量
s1: String;
aDateTimeFormat: TFormatSettings;
begin
// 设定转换格式
aDateTimeFormat.DateSeparator := '-';
aDateTimeFormat.ShortDateFormat := 'yyyy-mm-dd';
aDateTimeFormat.TimeSeparator := ':';
aDateTimeFormat.ShortTimeFormat := 'hh:mm:ss';
s1 := '1990-01-01';
Result := s1;
end;

end.

不成功啊

Answer 1

你的系统的日期分隔符采用的是"/"，和你用的分隔符"-"不匹配。

追问

我知道啊 我就是想用一个函数或者过程处理 这个转换过程
因为用的地方多 每次都声明和一段代码比较麻烦

追答

进入win7的“控制面板”－“时钟、语言和区域”－“更改日期、时间或数字格式”

将windows缺省的日期格式改为你需要的格式！！！

追问

这个我也知道的 亲。。
如果客户是XP呢 或者2003 2008的系统呢 需要转换的

我就想把这段转换日期格式的代码做成个函数 ，并有返回值，随时调用的