|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 计算两个日期之间相差的天数 本例主要应用了DaysBetWeen函数此函数用于计算两个日期之间相差的天数 本例应用两个DateTimePicker组件作为用户输入日期的工具当用户单击计算按钮时程序会计算用户在DateTimePicker中和DateTimePicker中所选日期的相差天数并将结果显示在文本框中 程序运行结果如图所示 http://developcsaicn/delphi/images/gif> 主要代码如下 procedure TFormButtonClick(Sender: TObject); begin EditText := IntToStr(DaysBetWeen(DateTimePickerDateDateTimePickerDate)); end; 根据指定日期返回星期几 本例中应用了DayofWeek函数此函数用于计算指定的日期是星期几该函数的返回值是一个到之间的整数 本例中声明了一个包含个数组元素的数组并为其赋予星期值然后使用DayofWeek函数将DateTimePicker组件中的日期转换为一个整数数值最后以信息框的形式显示当天是星期几 程序运行结果如图所示 http://developcsaicn/delphi/images/gif> 注意该函数不适应ISO标准星期日为星期的第一天 主要代码如下 procedure TFormButtonClick(Sender: TObject); var Day : Array [] of String; begin Day[]:=星期日; Day[]:=星期一; Day[]:=星期二; Day[]:=星期三; Day[]:=星期四; Day[]:=星期五; Day[]:=星期六; ApplicationMessageBox(pchar(今天是+Day[DayofWeek(DateTimePickerDate)])提示); end; 将日期转换为字符串 在制作与数据库交互的程序时有时可能会将当前系统时间作为参数添加到数据库中这时就需要将日期类型转换为字符串类型所以应该使用DateToStr函数 程序运行结果如图所示 http://developcsaicn/delphi/images/jpg> 图 将日期转换为字符串 主要代码如下 procedure TFormButtonClick(Sender: TObject); begin EditText:=DateToStr(DateTimePickerDate); end; |
