帮帮我... 如何取出月份值?就是将月份转换成数字... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先uses DateUtils;用MonthOf函数,如MonthOf(Now)=2 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var myDateTime : TDateTime; m : Integer;begin myDateTime := Now; //两个函数获取相同的结果 m := MonthOf(myDateTime); Showmessage(IntToStr(m)); m := MonthOfTheYear(myDateTime); Showmessage(IntToStr(m));end;end. 20分请教一个登录框问题 请教!!! 怎样设cxTreeList4.0的行高???? ****不断操作dbgird表时 如何才能让其不刷新**** 100分讨论quickreport中QRDBRichText1 或 QRRichText1 实现换行问题。 一个简单的SQL查询? 关于行拷贝的问题 !!!!关于sybase的问题,请进!!!! 想用CORBA做一个三层结构的企业应用,中间层应该用那些控件,怎样组织,哪位详细谈谈? 在win2000中不能进行串行口的读写? 关于DBGrid的问题 1stclass3000 Delphi5 的密码或修改fctext.duc文件后5分钟自动关机问题。
用MonthOf函数,如MonthOf(Now)=2
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,DateUtils;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
myDateTime : TDateTime;
m : Integer;
begin
myDateTime := Now;
//两个函数获取相同的结果
m := MonthOf(myDateTime);
Showmessage(IntToStr(m));
m := MonthOfTheYear(myDateTime);
Showmessage(IntToStr(m));
end;
end.