怎么得到日期中的天数,月份,单独要 不要2003-7-1这种得,我只要得到7这样
解决方案 »
- 初学者提问
- DELPHI 三层架构讨论 QQ群
- 请问正版SQLSERVER 2000SERVER版的价格是多少?
- 如何实现ActiveX版的Indyhttp功能(超过上贴4小时的UP有分)
- delphi XE2自带皮肤导致treeview的滚动条失焦问题怎样解决
- 我用的ADOTable控件,Active初始为true,若为空表时,关闭程序总会出现异常对话框!请问在Active不初始为false的情况下,如何处理!
- 怎样得到窗体系统菜单,并且在任何地方点右建都能弹出来?
- 高手一定要帮帮忙,为什么delphi不能调用VB写的控件
- 请问VC开发的DLL的导出函数名是否区分大小写?
- delphi中的数据库问题
- 求DELPHI6的两个补丁下载地址,谢谢!
- 如何模拟用户来按键
formatdatetime('d','2003-7-1');
label1.Caption:=formatdatetime('d',now); //日
m,d:String;
year,month,day:word;
begin
DecodeDate(now,year,month,day):
m:=format('%d',[month]);//月
d:=format('%d',[day]);//日
end;
另一种方法,
FormatDateTime('mm',now);//月
FormatDateTime('dd',now);//日
var
year,month,day
begin
DecodeDate(mydate,year,month,day)
getDay:=month;
end;
或者引用Rx的DateUitls单元
getday:=ExtractMonth(mydate)
function DaysInAMonth(const AYear, AMonth: Word): Word;
得到某年的天数:
function DaysInAYear(const AYear: Word): Word
得到月份:
function MonthOf(const AValue: TDateTime): Word;具体应用看delphi help