表记录:
生日 提前提醒时间
1980-08-05 3
怎么样去判断到2005-08-02提示还有3天是他的生日。
生日 提前提醒时间
1980-08-05 3
怎么样去判断到2005-08-02提示还有3天是他的生日。
解决方案 »
- 开源跨平台的pascal工具:lazarus(fpc)
- delphi窗体与adoquery控件和adoconnection控件的关系
- 字符串和数字转换的简单问题
- 你是做数据库的程序员吗?这个你不可不看!!!
- 请问大虾,错在哪里啊?
- 关系到Delphi的前途的问题,大家快来看看!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
- 请问哪里有TExcelApplication的帮助文件
- 问一个简单的问题:在一些语句中经常会看到$37之类的语句,什么意思?是代表几进制
- SOS!!!!!!!!!!
- 把你用过的或知道的windows外壳的接口共享一下吧!
- 有没有类似的控件,它的实现原理是什么?
- 怎样把字符串S中的内容COPY到buf中从指定的位置开始处?
var
dt1,dt2,dt3:tdatetime;
ss:real;
begin
dt1:=strtodate('2005-08-1');
ss:=dt1-Date;
if ss<=3 then
begin
showmessage('今天是'+datetostr(Date)+'还有'+floattostr(ss)+'天是XXX生日!');
end;
end;