double length=TDateTime::CurrentDateTime()-(double)OldTime;怎么将时间换成分钟

stiwin 2003-10-17 12:13:07

double length=TDateTime::CurrentDateTime()-(double)OldTime;怎么将时间换成分钟

...全文

44 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

ljianq 2003-10-17

打赏
举报

回复

可以使用MinutesBetween（）；

//分钟到标准时间的转换　Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload; //------------------------------------------------------------------------------ 　Function ...

{小数点的位置} {循环小写货币的每一位，从小写的右边位置到左边} for qian:=length(Smallmonth) downto 1 do begin {如果读到的不是小数点就继续} if qian<>dianweizhi then begin {位置上的数转换成大写} case ...

lbl2.Caption := Copy(CnSkyStemOfYear(Mytime), 1, 2) + Copy(CnanimalOfYear(Mytime),1,2)+'年'+CnMonthOfDate(Mytime)+CnDayOfDate(Mytime); lbl3.Caption := GetLunarHolDay(Mytime)+CnDayOfDateJr(Mytime)+...

FTimeZoneKeyPath := '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones'; FTimeZoneList := TStringList.Create; FTimeZoneList.Sorted := True; FDefaultTimeZone := nil; CollectTimeZone; end; ...

　ADOquery1.Parameters.ParamByName('a').Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date); 　ADOquery1.Open; 　end; 　procedure TForm1.Button2Click(Sender: TObject); 　begin 　close; 　end;

13,825

社区成员

102,678

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章