DLPHI最基本的問題。。。請幫忙 各位請幫忙一個忙,,就是怎麼知道一個月有多少天,就拿2月來說,比如說現在是2號怎麼知道這個月就只有28天呢請給出一個詳細的過程好嗎???希望是完整的代碼 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function LastDayOfMonth(Dat: TDate): TDate;varD, M, Y : Word;beginDecodeDate(IncMonth(Dat, 1), Y, M, D);Result := EncodeDate(Y, M, 1) - 1;end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function LastDayOfMonth(Dat: TDate): TDate;varD, M, Y : Word;beginDecodeDate(IncMonth(Dat, 1), Y, M, D);Result := EncodeDate(Y, M, 1) - 1;end;procedure TForm1.Button1Click(Sender: TObject);begin showmessage(inttostr(dayOf(LastDayOfMonth('2003-09-09'))));end;end. [Error] Unit1.pas(40): Incompatible types: 'TDate' and 'String' var i:integer;begin i:=DaysInMonth(now()); showmessage(inttostr(i));end; : lion_lh(xmanx)linzhisong(無聊) 謝謝。。 uses dateutils中的DaysInMonth(Date) 请教:在delphi中如何控制(启动、暂停、停止)服务管理器中的服务 关于rave报表的问题!请指导一下 菜鸟求救:关于listview显示的某一记录修改在刷新后重回到原记录,怎么定位 高分求救 如何清除键盘缓冲区! 报表预览上的保存是怎么做的? 关于 IPictureDisp 或者其他 招聘delphi5.0高手 原来D4里THtml控件的功能,在D5中变成什么啦? 关于Madis的问题 请问大家的fastreport 有注册码吗? 没有注册码, 怎么用?,那里有免费版的? 好多错误!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,DateUtils;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
function LastDayOfMonth(Dat: TDate): TDate;varD, M, Y : Word;beginDecodeDate(IncMonth(Dat, 1), Y, M, D);Result := EncodeDate(Y, M, 1) - 1;end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(dayOf(LastDayOfMonth('2003-09-09'))));end;end.
i:integer;
begin
i:=DaysInMonth(now());
showmessage(inttostr(i));
end;
linzhisong(無聊)
謝謝。。
中的
DaysInMonth(Date)