mysql⽇期转换12⼩时和24⼩时_12⼩时制和24⼩时制的转换
(转)
⾸先想到的是TDateTimePicker控件有没有属性来实现这⼀功能的转换,因为这样做的好处不⾔⽽知。在我看了TDateTimePicker、TCommonCalendar这两个类的源码后得出了结论,不能⽤控件的属性或过程来实现这⼀转换。
于是只好改变思路:
我们知道,在Windows下可以修改时间的显⽰⽅式,具体⽅法如下:
“控制⾯板”->“区域选项”(WINXP则是“⽇期与时间的显⽰⽅式”)->“时
间”。在“时间格式”⼀栏中可以修改时间的显⽰格式,具的显⽰格式可在在“外观
⽰例”中可以看到。
现在可以知道“H:mm:ss”显⽰的是24⼩时制,⽽“tt h:mm:ss”显⽰的则是12⼩时
制。
我们把“时间格式”设置为“tt h:mm:ss”后再点击“确定”按钮退出。
现在再来在窗体上放⼀个TDateTimePicker控件,OK,达到的预期的效果。
刚准备舒⼀⼝⽓,⼜转念⼀想,程序到了别⼈的电脑那不是⼜不⾏了??
看来,还得继续⼯作。
我们知道Windows的系统设置⼀般都保存在注册表中。现在的关键是到时间显⽰格式所保存的注册表主键。
想⼀下,⽤的注册表搜索功能。
我现在的系统时间是12⼩时制,它的显⽰格式是“tt h:mm:ss”。好,就来搜索这个
吧。终于到了第⼀个,仔细思量⼀下,应该是的:主键是:
HKEY_CURRENT_USER\Control Panel\International
⽽其中的sTimeFormat键值名就是时间格式。
但是,⾥边还有那么多的键值,要修改哪些呢?⼜是⼀个问题。
write的返回值想了⼀下,⾏,就⽤这个办法:
1、导出主键
2、在控制⾯板中把系统时间改为24⼩时制
3、再导出主键
4、运⾏两个记事体实例,分别打开刚才导出的主键(扩展名为.reg)
5、⽐较,删除键值名和数据都相同的⾏
现在出来了结果:
12⼩时制和24⼩时制有三个键值的数据不同
键值名 12⼩时制的值 24⼩时制的值
iTime 0 1
iTimePrefix 1 0
sTimeFormat H:mm:ss tt h:mm:ss现在余下的问题就是如何编程序来实现了。Delphi对注册表的操作⼀般都是⽤TRegistry类来实现,具体的操作请参考相关资料。现在贴出其源码:
unit SetTimeSotryUnit;
interface
uses
Windows, Registry;
Type
Time_Story = (ts_12, {12 ⼩时制}
ts_24 {24 ⼩时制}
);
procedure SetTimeStory(const Story: Time_Story);
function GetTimeStory: Time_Story;
implementation
{ ---------------------------------------------------------------------------
//
// 把系统时间的显⽰⽅式设置为指定类型
//
// 参数 :
// Story : 指定类型
//
--------------------------------------------------------------------------}
procedure SetTimeStory(const Story: Time_Story);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
{设置根主键为 HKEY_CURRENT_USER}
Reg.RootKey := HKEY_CURRENT_USER;
{打开主键 \Control Panel\International}
Reg.OpenKey(\Control Panel\International, False);
Try {写⼊数据}
Case Story of
ts_12: {12 ⼩时制}
begin
Reg.WriteString(iTime, 0);
Reg.WriteString(iTimePrefix, 1);
Reg.WriteString(sTimeFormat, tt h:mm:ss);
end;
ts_24: {24 ⼩时制}
begin
Reg.WriteString(iTime, 1);
Reg.WriteString(iTimePrefix, 0);
Reg.WriteString(sTimeFormat, H:mm:ss);
end;
end;
Finally;
Reg.CloseKey; {关闭主键}
Reg.Free;
end;
end;
{ ------------------------------------------------------------------------//
// 返回当前系统时间的显⽰⽅式
//
// 返回值 :
// 默认的返回为 24 ⼩时制
//
-
----------------------------------------------------------------------} function GetTimeStory: Time_Story;
var
Reg: TRegistry;
begin
Result := ts_24;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(\Control Panel\International, False);
Try
if Reg.ReadString(sTimeFormat) = tt h:mm:ss then
Result := ts_12
else
Result := ts_24;
Finally;
Reg.CloseKey;
Reg.Free;
end;
end;
end.
以上的实现功能的转换,⽽我们要在TDateTimePicker创建之前就要设置好系统时间格式。所以还要修改.dpr的⽂件,如下:
program Project1;
uses
Forms,
SetTimeSotryUnit in SetTimeSotryUnit.pas {Form1};
{$R *.res}
begin
Application.Initialize;
if GetTimeStory = ts_12 then {如果为 12 ⼩时制则显⽰为 24 ⼩时制}
SetTimeStory(ts_24)
else {//如果为 24 ⼩时制则显⽰为 12 ⼩时制}
SetTimeStory(ts_12);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
⾄此全部完成....
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论