我用Dayofthemonth()没取成功
是用这函数吗??
是用这函数吗??
解决方案 »
- help 请问大家delphi与VC程序之间能相互传输文件吗
- 怎样动态调用DLL?
- 急。过程调用???????????
- 怎么判断?
- 这个问题大家来看看啊,一定有人会!
- 这样的远程MSSQL数据库可操作吗?
- 请问能否恢复软删除的纪录?
- delphi+sql server 2000编程密码问题?
- 如何实现在DateTime字段中只输入时间,如"07:59"?
- 好久不来了,散分给那些一直坚持delphi的朋友
- 赶快帮个忙啊,我的程序是用的Delphi6+Oracle10G开发,数据库访问用的是Ado,但现在才发现这样的话,客户端也需要安装Oracle的客户端,
- ==========求Excel文件流格式==========
DaysInAMonth(year,day)
Str_Month:String;
begin
Str_Month:=FormatDateTime('MM',Date);
end;
DaysInAMonth(year,day)
…………
procedure TForm1.Button1Click(Sender: TObject);
var
year,month,day :word;
begin
decodedate(now,year,month,day);
Edit1.Text :=inttostr(DaysInAMonth(year,day));
end;
function DaysInAMonth(const AYear, AMonth: Word): Word;
uses DateUtils如:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
//在这加下面一条语句
uses DateUtils;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(DaysInAMonth(YearOf(now),MonthOf(now)));
end;end.