问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

关于Delphi 输入年月日 求输出星期

发布网友 发布时间:2022-05-10 17:32

我来回答

5个回答

热心网友 时间:2023-10-19 06:23

直接用Delphi组件面板(Win32选项卡)上的日期选择组件:DateTimePickerk,这个更方便,也不用你去管2月份是28天还是29天。

然后,再看一看下面我写的代码:

procere TForm1.Button1Click(Sender: TObject);
var s:string;
begin
case DayofWeek(DateTimePicker1.Date) of
1: s:='星期日';
2: s:='星期一';
3: s:='星期二';
4: s:='星期三';
5: s:='星期四';
6: s:='星期五';
7: s:='星期六';
end;
edit1.text:=DateToStr(DateTimePicker1.Date)+' '+s;
end;

就OK 了。

热心网友 时间:2023-10-19 06:23

为什么不用dayofweek()呢?这个现成的函数也是有算法的:
function DayOfWeek(const DateTime: TDateTime): Word;
begin
Result := DateTimeToTimeStamp(DateTime).Date mod 7 + 1;
end;
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
asm
PUSH EBX
{$IFDEF PIC}
PUSH EAX
CALL GetGOT
MOV EBX,EAX
POP EAX
{$ELSE}
XOR EBX,EBX
{$ENDIF}
MOV ECX,EAX
FLD DateTime
FMUL [EBX].FMSecsPerDay
SUB ESP,8
FISTP QWORD PTR [ESP]
FWAIT
POP EAX
POP EDX
OR EDX,EDX
JNS @@1
NEG EDX
NEG EAX
SBB EDX,0
DIV [EBX].IMSecsPerDay
NEG EAX
JMP @@2
@@1: DIV [EBX].IMSecsPerDay
@@2: ADD EAX,DateDelta
MOV [ECX].TTimeStamp.Time,EDX
MOV [ECX].TTimeStamp.Date,EAX
POP EBX
end;

热心网友 时间:2023-10-19 06:24

估计你是想做一个日历之类的吧。 我以前根据某网站的一个js转换出的这个pas应该可以帮你。

到我的主页去看吧。

http://hi.baidu.com/yangyxd

热心网友 时间:2023-10-19 06:25

直接用时间控件不是很简单么????

热心网友 时间:2023-10-19 06:25

dayofweek()
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
好听简单的店铺名字店铺好听的名字大全 ...还脱皮。一年四季都这样,夏天能好一点,冬天严重时怎么回事啊?应该怎 ... 手,脚一年四季脱皮怎么办 地铁跑酷 地铁跑酷鼠小意会回归吗? 印度国家安全卫队身经百战 飞机驾驶室的机舱门在飞行时关闭么?为什么会有劫机成功的案例,不... 为什么中国不会劫机 急求翻译几个句子! 急求!!翻译句子!在线等! 我们和公婆住一起,大姑子每周末都过来耍 delphi设置时区 delphi程序里日期时间怎么控制 delphi 设置星期几问题 关于Delphi 输入年月日 求输出星期 ,急啊!!! Delphi 7 显示一周日期和对应星期问题 delphi如何自定义设置周期,工作日 delphi中用什么函数可以知道某一天是星期几 delphi有没有直接获取当前星期几的函数 delphi获取当前日期,包括年份月份星期时间。 摘要翻译,毕业论文用的,请不要用翻译器翻译,谢谢! 集成电路制造技术的目录 空心杯电机可以用在固定翼飞机上吗 硅片腐蚀的基本步骤 简述自对准硅化物工艺流程 什么是扩散炉?它有什么用处? 什么是扩散炉 硅片回收技术的切片、退火、倒角 太阳能电池扩散中的热氧化 坐飞机火车能不能带电水壶? 硅片如何钝化测少子寿命 delphi 中 label1上显示的日期格式为XXXX年XX月XX日 星期X ,添加一个button判断日期的年份是否闰年,咋办 delphi 中如何用button1实现在label1上显示的格式为 XXXX年XX月XX日 星期X 的日期增加一天?减少一天呢? delphi 如何获取本周第一天和最后一天 为何delphi的日期格式设置不起作用? Delphi中提取系统时间的函数 delphi(时间的问题) delphi7.0如何使用时间函数 Delphi 怎么使用时间函数 求教DELPHI的问题,我是菜鸟刚学DELPHI一个星期 女人变心了当我问他时他还哭是不是还有感情? 女人变心了,还能爱她吗?感觉好累啊 一个女人变心了,还值得你去爱吗? 女人变心后还值得去爱吗? 女人变心了还可以挽回的吗? 大学管理学学习资料哪里有? 人力资源管理学习资料? 公安管理学中人文主义的名词解释 humanist名词解释 文艺复兴 ( 名词解释 商业房产他项权证费用是多少?