在线等待，马上解决马上给分，很基础的！（代码）

1、   取得时间函数，只需要小时和分，插入数据库  
      2、   两个时间段查询，对查询结果进行打印阅览。 问题点数：100、回复次数：4Top

1 楼wdsimon（我是谁?）回复于 2003-08-04 20:34:19 得分 20

1、formatdatetime('hhmm',now);  
  2、要自己做报表，将报表数据源设置为连接查询的datasoure,然后PreviewTop

2 楼wdsimon（我是谁?）回复于 2003-08-04 20:36:24 得分 20

这些问题比较基础，建议自己先看书或搜索一下。Top

3 楼huojiehai（海天子）回复于 2003-08-04 20:37:17 得分 30

1.  
  procedure   TForm1.Button1Click(Sender:   TObject);  
   
  var  
      Present:   TDateTime;  
      Year,   Month,   Day,   Hour,   Min,   Sec,   MSec:   Word;  
    begin  
      Present:=   Now;  
      DecodeDate(Present,   Year,   Month,   Day);  
      Label1.Caption   :=   'Today   is   Day   '   +   IntToStr(Day)   +   '   of   Month   '  
          +   IntToStr(Month)   +   '   of   Year   '   +   IntToStr(Year);  
      DecodeTime(Present,   Hour,   Min,   Sec,   MSec);  
      Label2.Caption   :=   'The   time   is   Minute   '   +   IntToStr(Min)   +   '   of   Hour   '  
          +   IntToStr(Hour);  
  end;  
   
   
  2.C:\Program   Files\Borland\Delphi5\Demos\Quickrpt  
  Top

4 楼wangguan007（张）回复于 2003-08-04 20:42:12 得分 30

datetimepicker1.kind   :=   ```time;  
  datetimepicker1.format   :=   'hh:mm';  
  adoquery1.fieldbyname['field_name']   :=   datetimepicker1.time;  
   
  'select   *   from   table_name   where   字段名   >=   '''   +   datetimetostr(datetimepicker1.time);  
   
  呵呵，大概就这些  
  要看你的需要了  
  Top

相关问题

• inttostr
• datetimepicker
• present
• hour
• month
• year
• day
• min
• time

• 帖主：xiaofeng007
• wdsimon
• wdsimon
• huojiehai
• wangguan007

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载