delphi有没有直接获取当前星期几的函数?
delphi有没有直接获取当前星期几的函数?
年月日有相应的函数,我还需要星期几。网上搜索了好多资料,大多是自定义的函数,多数也比较复杂。有没有自带的函数?
DateUtils单元的WeekOf函数
哦,WeekOf是第几周,DayOfWeek才是星期几
DayOfWeek,是在 SysUtils 中
showmessage('星期'+IntToStr(DayOfWeek(DateTimePicker1.DateTime)-1));
星期日是第1天,星期一是第2天,星期二是第3天,所以 - 1
dayofweek(Now()); 0=>星期天,。。。。类推
相关问答:
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 ......
hongqi162、windindance
此2人长期不在线,特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因,主要可能是时间问题吧
工作的还要上班,学� ......
Delphi(Pascal) code:
function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......
如题所示
小弟使用Delphi7环境进行数据采集,采集到的数据放入SQL Server2000数据库中,但是想不安装SQLServer2000来实现从其它计算机上运行此程序,不知如何实现?望各位大虾告知一二。
另外,现在小弟遇到了一个 ......
MessageBox(0,PChar('L'),PChar('LL'),0);
结果:PChar('LL') 显示 ,但PChar('L') 不显示.
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBo ......