易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi有没有直接获取当前星期几的函数?

delphi有没有直接获取当前星期几的函数?
年月日有相应的函数,我还需要星期几。网上搜索了好多资料,大多是自定义的函数,多数也比较复杂。有没有自带的函数?
DateUtils单元的WeekOf函数

哦,WeekOf是第几周,DayOfWeek才是星期几

DayOfWeek,是在 SysUtils 中

showmessage('星期'+IntToStr(DayOfWeek(DateTimePicker1.DateTime)-1));

星期日是第1天,星期一是第2天,星期二是第3天,所以 - 1

dayofweek(Now()); 0=>星期天,。。。。类推


相关问答:

VC Delphi 内存速度比较 - VC/MFC / 非技术类

VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......

强烈建议DELPHI版更换大版 - Delphi / 非技术区

hongqi162、windindance
此2人长期不在线,特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的

引用
更换有能力的人上
其实也不是什么能力的原因,主要可能是时间问题吧
工作的还要上班,学� ......

delphi 2010 dbgrideh EhLib5.0.13 导出文件出错

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......

Delphi使用SQL Server如何可以不安装SQLServer2000

如题所示
小弟使用Delphi7环境进行数据采集,采集到的数据放入SQL Server2000数据库中,但是想不安装SQLServer2000来实现从其它计算机上运行此程序,不知如何实现?望各位大虾告知一二。
另外,现在小弟遇到了一个 ......

Delphi 2010 PChar 的奇怪现象

 MessageBox(0,PChar('L'),PChar('LL'),0);
结果:PChar('LL') 显示 ,但PChar('L') 不显示.
var
  p1, p2: PChar;
begin
  p1 := PChar('L');
  p2 := PChar('LL');
  MessageBo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号