获取当前系统时间(摘)
2008-08-27 09:31
513 查看
from http://tech.sina.com.cn/soft/2000-09-27/775.html
第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量。
可以使用:TimeToStr将时间改为字符型。该函数不能用于返回“日期”。
单独用于返回日期的系统函数是Date。
那么有什么是既可返回正确的“时分秒”又可返回正确的“年月日”呢? 可以用Now函数,例如:
var
sTime:TDateTime;
sday:TDatetime;
mytime:TDateTime;
begin
sTime:=Time();
sday:=Date ;
mytime:=Now;
// Caption:=DateToStr(sday)+' '+TimeToStr(sTime);
Caption:=DateToStr(mytime)+' '+TimeToStr(mytime);
end;
二是使用函数:DecodeDate(Date,wYear,wMonth,wDay);//wYear等为word类型
三、使用API函数GetSystemTime
用Now返回的日期格式中年只有2位,即2000年显示为00, 这似乎不太令人满意. 此外Now和Time都只能获得精确到秒的时间,为了得到更精确的毫秒级时间,可以使用API函数GetSystemTime,它对应的TSystemTime类型的定义为:
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
显然,在程序逻辑中还能够方便地使用其结构成?时---各类时间值,因此使用函数GetSystemTime具有很大优越性。但该书中该函数的用法是错误的,通过查阅Windows SDK帮助可知,该函数原型为:
VOID GetSystemTime(LPSYSTEMTIME lpst),参数指针lpst获取系统时间,因此可如以下程序段实现:
procedure TForm1.Button3Click(Sender: TObject);
var
SysTime: TsystemTime;
begin
GetSystemTime(SysTime);
Caption:=IntToStr(SysTime.wYear)+' '+IntToStr(SysTime.wMonth);
//if SysTime.wYear>2000 then
// ......在程序逻辑中利用获取的各类时间值
end;
综合以上讨论,获取当前系统时间利用函数GetSystemTime比较方便而且灵活。
第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量。
可以使用:TimeToStr将时间改为字符型。该函数不能用于返回“日期”。
单独用于返回日期的系统函数是Date。
那么有什么是既可返回正确的“时分秒”又可返回正确的“年月日”呢? 可以用Now函数,例如:
var
sTime:TDateTime;
sday:TDatetime;
mytime:TDateTime;
begin
sTime:=Time();
sday:=Date ;
mytime:=Now;
// Caption:=DateToStr(sday)+' '+TimeToStr(sTime);
Caption:=DateToStr(mytime)+' '+TimeToStr(mytime);
end;
二是使用函数:DecodeDate(Date,wYear,wMonth,wDay);//wYear等为word类型
三、使用API函数GetSystemTime
用Now返回的日期格式中年只有2位,即2000年显示为00, 这似乎不太令人满意. 此外Now和Time都只能获得精确到秒的时间,为了得到更精确的毫秒级时间,可以使用API函数GetSystemTime,它对应的TSystemTime类型的定义为:
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
显然,在程序逻辑中还能够方便地使用其结构成?时---各类时间值,因此使用函数GetSystemTime具有很大优越性。但该书中该函数的用法是错误的,通过查阅Windows SDK帮助可知,该函数原型为:
VOID GetSystemTime(LPSYSTEMTIME lpst),参数指针lpst获取系统时间,因此可如以下程序段实现:
procedure TForm1.Button3Click(Sender: TObject);
var
SysTime: TsystemTime;
begin
GetSystemTime(SysTime);
Caption:=IntToStr(SysTime.wYear)+' '+IntToStr(SysTime.wMonth);
//if SysTime.wYear>2000 then
// ......在程序逻辑中利用获取的各类时间值
end;
综合以上讨论,获取当前系统时间利用函数GetSystemTime比较方便而且灵活。
相关文章推荐
- PHP获取当前系统时间的方法小结
- Android获取当前系统时间
- cmd下windows批处理,获取当前系统时间,生成日志文件名
- 获取系统当前时间时带有星期的处理方法
- 两例JavaScript 获取当前系统日期和时间
- loadrunner 获取当前系统时间
- Java获取当前系统时间
- MFC获取系统当前时间
- Android 获取当前系统时间 时间之间的转换 判断字符串是否日日期类型
- C/C++ 获取当前系统时间到字符串
- 获取系统当前时间,绑定展示数据
- java获取获得Timestamp类型的当前系统时间
- Android获取系统当前时间
- mysql:获取系统当前的数字形式时间值
- Linux获取系统当前时间(精确到毫秒)
- Cocos2dx3.1 获取当前系统时间
- .net获取系统当前时间
- Python获取当前系统时间
- 利用Python获取系统当前时间
- C#获取当前系统时间