請問日期可以相减嗎 |
尚未結案
|
ychx
一般會員 發表:40 回覆:14 積分:10 註冊:2003-08-03 發送簡訊給我 |
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
引言: 哪位大大知道怎样把日期想减啊? 如2008-5-2减2004-6-8 等于 几年几月几日?由於Delphi的TDateTime其實是數字型態, 所以將兩日期直接相減即可得出差多少日期。 ..-----------βλμε------------.. ◎Oo月夜 光明 藍更愁oO◎ 藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DateUtils; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var sDT, eDT:TDatetime; days:integer; y,m,d:integer; begin sDT:=StrToDatetime('2008/05/02'); eDT:=StrToDatetime('2004/6/8'); days:=DaysBetween(sDT, eDT); y:=days div 365; m:=(days mod 365) div 30; d:=(days mod 30); Label1.Caption:=IntToStr(y) '年' IntToStr(m) '月' IntToStr(d) '日'; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |