A
a_lei33_4
Unregistered / Unconfirmed
GUEST, unregistred user!
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
这样可以？没实过！
if mounth = 12 then mouth = 0;
theDate := StrToDateTime(inttostr(mounth+1) + '-1-1)) - 1;
if mounth = 12 then mouth = 0;
theDate := StrToDateTime(inttostr(mounth+1) + '-1-1)) - 1;
张
张剑波
Unregistered / Unconfirmed
GUEST, unregistred user!
建立一个循环，从这个月的第一天开始，
不断的加一天，直到这个日期的月份发生变化。
不断的加一天，直到这个日期的月份发生变化。
S
sanrex
Unregistered / Unconfirmed
GUEST, unregistred user!
const
a : array [1..12 ] of integer =
(31,28,31,30,31,30,31,31,30,31,30,31,30);
begin
lastdayofThemonth = a[month] ;
end;
yun （门＋王）年有些特殊，但可以通过函数判断，来处理，
delphi内部的一些时间函数就是这样写的
a : array [1..12 ] of integer =
(31,28,31,30,31,30,31,31,30,31,30,31,30);
begin
lastdayofThemonth = a[month] ;
end;
yun （门＋王）年有些特殊，但可以通过函数判断，来处理，
delphi内部的一些时间函数就是这样写的
V
Victortim
Unregistered / Unconfirmed
GUEST, unregistred user!
easy，例如要2000年2月的最后一天
则：theDate:=StrToDate('2000-3-1')-1;
其实很简单，只先计算出下一个月的第一天，然后减一天，就是你想要的哪一天。
则：theDate:=StrToDate('2000-3-1')-1;
其实很简单，只先计算出下一个月的第一天，然后减一天，就是你想要的哪一天。
千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
cj的考虑全面
R
RJU
Unregistered / Unconfirmed
GUEST, unregistred user!
Victortim的方法可以，但要注意求12月的最后
一天，别忘了年也减1
一天，别忘了年也减1
V
Victortim
Unregistered / Unconfirmed
GUEST, unregistred user!
to RJU:年加一吧?
G
guojun
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi的元件面板上的Sample页上有一个日历元件，看看它的源码吧.
S
SuperMMX
Unregistered / Unconfirmed
GUEST, unregistred user!
自己写吧，
to cj;
mounth?? mouth? month?哈哈。
to cj;
mounth?? mouth? month?哈哈。
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
hehe,that is easy:
IncMonth(EncodeDate(Year,month,1),1)-1;
IncMonth(EncodeDate(Year,month,1),1)-1;
L
Lambert
Unregistered / Unconfirmed
GUEST, unregistred user!
Function GetMonthLastDay(WhichDay:TDate):TDate;
var
Year1,Month1,Day1,Year2,Month2:Word;
Begin
Result:=WhichDay;
DecodeDate(WhichDay,Year1,Month1,Day1);
Year2:=Year1;
Month2:=Month1+1;
if Month2=13 then
Begin
Month2:=1;
Year2:=Year2+1;
End;
Result:=EnCodeDate(Year2,Month2,1)-1;
End;
var
Year1,Month1,Day1,Year2,Month2:Word;
Begin
Result:=WhichDay;
DecodeDate(WhichDay,Year1,Month1,Day1);
Year2:=Year1;
Month2:=Month1+1;
if Month2=13 then
Begin
Month2:=1;
Year2:=Year2+1;
End;
Result:=EnCodeDate(Year2,Month2,1)-1;
End;
P
plowboy
Unregistered / Unconfirmed
GUEST, unregistred user!
免費放送累試不償:
Function GetMonLast(Idate:TDate):TDate;
Var
Year,Month,Day:Word;
Begin
DecodeDate(IDate,Year,Month,Day);
If Month=12 Then
Begin
Year:=year + 1;
Month:=01
End Else Month:= Month + 1;
Result:=Encodedate(Year,Month,01) - 1;
End;
Function GetMonLast(Idate:TDate):TDate;
Var
Year,Month,Day:Word;
Begin
DecodeDate(IDate,Year,Month,Day);
If Month=12 Then
Begin
Year:=year + 1;
Month:=01
End Else Month:= Month + 1;
Result:=Encodedate(Year,Month,01) - 1;
End;
P
plowboy
Unregistered / Unconfirmed
GUEST, unregistred user!
還要不要取每個月的1號的函數!!!
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
...Sorry,MMX
俺的思路还不算坏的过分啊，呵呵……
俺的思路还不算坏的过分啊，呵呵……
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
?
A
a_lei33_4
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案啦.