月份函數(急)(100分)

K

key8848

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #1

[]各位大俠,下午好.
Delphi中有沒有如"2002/06/01"與"2002/04/01"相差几個月份的函數.[]

 

S

smallbs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #2

搜索一下，有类似的帖子

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #3

up

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #4

(year(d1)-year(d2))*12+(month(d1)-month(d2))

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #5

d6中有这样的函数，查date的帮助看相关函数

 

Z

zhengbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

Delphi中有沒有如"2002/06/01"與"2002/04/01"相差几個月份的函數.[]
var
SecDate, FirDate: TDateTime;
SecYear, SecMonth, SecDay: Word;
FirYear, FirMonth, FirDay: Word;
begin
SecDate:= StrToDate('2002/08/01');
FirDate:= StrToDate('2002/04/01');
DecodeDate(SecDate, SecYear, SecMonth, SecDay);
DecodeDate(FirDate, FirYear, FirMonth, FirDay);
Label1.Caption := '2002/08/01--2002/04/01相差: ' + IntToStr(SecMonth - FirMonth)
'个月.';
end;

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #7

你看一下MonthSpan和MonthsBetween
不知道和要求否？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #8

相差几个月：MonthsBetween
相差几天： DaysBetween
相差几年： YearsBetween

记得 Uses DateUtils; (好像是这个单元，查帮助就知道了)

 

K

key8848

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #9

謝謝大家的參与!!!!