没分了。请问,我如何取得系统的当前时间(包括时分秒)(0分)

  • 主题发起人 主题发起人 nzfboy
  • 开始时间 开始时间
N

nzfboy

Unregistered / Unconfirmed
GUEST, unregistred user!
请问,我如何取得系统的当前时间(包括时分秒)
 
var
DateTime,MyDate,MyTime : TDateTime;
DateStr,TimeStr:string;
begin
DateTime := Now
//返回当前日期时间
DateStr:= DateToStr(DateTime)
//转换日期为字符串 ,例如:01/08/96
TimeStr := TimeToStr(DateTime)
//转换时间为字符串,例如:20:50
MyDate:= StrToDate(DateStr)
//转换字符串为日期
MyTime:= StrToTime(TimeStr)
//转换字符串为时间
DateTime:= MyDate + MyTime
//相加得到datetime
DateTime := DateTime + (15/60/24);//加15分钟

DateStr:= FormatDateTime('yyyy-mmmm-dd',MyDate)
{1996-January-08}
DateStr:= FormatDateTime('mmm,d,yy,ddd',MyDate)
{Jan,8,96,Mon}
DateStr:= FormatDateTime('dddd/dd/mm/yy',MyDate)
{Monday/08/01/96}

TimeStr:= FormatDateTime('t',MyTime)
{10:50 PM}
TimeStr:= FormatDateTime('tt',MyTime)
{10:50:00 PM}
TimeStr:= FormatDateTime('hh-nn-ss-a/p',MyTime)
{10-50-00-p}
end

////////////////////////////////////////////
begin
try {编码年月日为TDateTime}
DateTime := EncodeDate(YearStr, MonthStr,DayStr);
except
on EConvertError do ....
end;

DOW := DayOfWeek(DateTime)
获得星期几的信息
case DOW of
1 : WeekStr:= '星期天'

......
7:WeekStr:='星期六'
end;
 
var
CurrentTime:TSystemTime;
{*
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
*}
begin
GetSystemTime(CurrentTime);

end;
 
Now

GetSystemTime
省事
^0^
 
now 时间加日期

date 日期

time 时间
 
增加几个:
FormatDateTime(LongDateFormat,Now);//将当前日期与时间转换成控制面板中设定的长日期格式
FormatDateTime(ShortDateFormat,Now);//将当前日期与时间转换成控制面板中设定的短日期格式
FormatDateTime(LongTimeFormat,Now);//将当前日期与时间转换成控制面板中设定的长时间格式
FormatDateTime(ShortTimeFormat,Now);//将当前日期与时间转换成控制面板中设定的短时间格式

系统变量
DateSeparator;//日期分隔符变量
TimeSeparator;//时间分隔符变量
还有很多,在SysUtils.pas中最前面的变量设定那里
这些变量的值是在控制面板中,如:
把“控制面板”中“区域”中的日期分隔符改为:/,则DateSeparator的值就是: /
 
var
a:tdate;
begin
a:=now(datetime);//日期和时间
a:=now(date);//日期
a:=now(time);//时间
end;
 
嗯,都对。我就不补充了。
 
后退
顶部