如何取出月份值?就是将月份转换成数字...
解决方案 »
- delphi adoconnection连接ORACLE数据库问题
- 点击按钮,触发方向键
- 用web broker,一个网页提交表单后,而接收的action的request里面的无任何参数!!!!这是怎么回事啊。在线等待,急
- 如何调用FastReport报表?
- 没有人能解决“FasterReport换页问题!急!”问题吗?
- 神啊救救我吧
- 请问怎样在delphi窗体中画点!!!!!!!???????????????给分!!!!!
- 请问谁有用API函数发送邮件的源程序?
- ----100分-----请问再写corba object程序是出现 file not fount"orbpas.dsu"---请问各位大虾该如何处理?
- Tsplitler如何使用!!!!
- 关于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.