文档章节

学习官方示例 - SysUtils.EncodeDate、EncodeTime、StrToDate、StrToTime、StrToDateTime

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 232
阅读 2
收藏 0

代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  D: TDate;
  T: TTime;
begin
  D := EncodeDate(2008, 9, 11);
  T := EncodeTime(14, 56, 12, 1);

  ListBox1.Clear;
  ListBox1.Items.Add(FormatDateTime('yyyy/mm/dd', D));
  ListBox1.Items.Add(FormatDateTime('hh:nn:ss:zzz', T));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  D: TDate;
  T: TTime;
  DT: TDateTime;
begin
  D := StrToDate('2008-9-11');
  T := StrToTime('14:56:06');
  DT := StrToDateTime('2008-9-11 14:56:06');

  ListBox1.Clear;
  ListBox1.Items.Add(DateToStr(D));
  ListBox1.Items.Add(TimeToStr(T));
  ListBox1.Items.Add(DateTimeToStr(DT));
end;

end.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 93
  ClientWidth = 249
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 158
    Top = 14
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 145
    Height = 93
    Align = alLeft
    ItemHeight = 13
    TabOrder = 1
    ExplicitHeight = 206
  end
  object Button2: TButton
    Left = 158
    Top = 53
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 2
    OnClick = Button2Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/09/11/1289203.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
PHP时间戳 strtotime()使用方法和技巧

php strtotime()解释如何使用,看了下面的文章就要以学习到了。下面还有php文档函数解释。 在php中我想要获取时间戳有多种方法,最常用的就是使用time函数与strtotime()函数把日期转换成时间...

orientalfashion
2013/10/30
451
0
php 获取时间今天-明天-昨天时间戳

php获取时间今天明天昨天时间戳的实现方法。 使用php获取时间今天明天昨天时间戳 2013-06-20 11:12 <?php echo "今天:".date("Y-m-d")."<br>"; echo "昨天:".date("Y-m-d",strtotime("-1 day......

mysoftsky
2014/01/04
0
0
如何利用PHP时间戳获取当前时间

关键词:PHP   大家也许对PHP时间戳已经有所了解,那么我们如何应用它来获取具体的日期呢?我们今天来为大家介绍一下PHP时间戳获取当前时期的具体方式。   实现功能:获取某个日期的时间戳...

liangxiao
2012/09/14
0
0
php中时间戳和日期格式的转换

一,PHP时间戳函数获取指定日期的unix时间戳 strtotime(”2009-1-22″) 示例如下: echo strtotime(”2009-1-22″) 结果:1232553600 说明:返回2009年1月22日0点0分0秒时间戳 二,PHP时间戳...

蜗牛奔跑
2016/03/15
36
0
php的strtotime举例

1、上周日午夜   strtotime("last sunday"); 2、本周日午夜 strtotime("this sunday"); 3、今天午夜   strtotime("today"); 4、昨天午夜 strtotime("yesterday"); 5、上周同一时间 ...

贪睡猫仙mosen
2014/02/18
0
1

没有更多内容

加载失败,请刷新页面

加载更多

Sqoop 操作实例补充

导入指定字段和指定条件的行记录 # 指定导入的字段--columns <col,col,col…># 指定过滤条件--where <where clause># 设置切分的工作单元--split-by <column-name># 目标目录存在...

PeakFang-BOK
14分钟前
1
0
App store 侵权投诉

App Store Content Dispute 侵权投诉 https://www.apple.com/legal/internet-services/itunes/appstorenotices/#?lang=zh...

壹峰
17分钟前
0
0
教程:如何在window上安装Apache HTTP Server

Apache官网只提供 Apache HTTP Server 的源代码,不提供编译好的二进制文件。 不过我们还是可以从网络上找到其他人编译好的Apache HTTP Server。 首先,从 https://www.apachehaus.com/cgi-b...

Doxde
33分钟前
0
0
中国移动蔡谦:5G传输准备就绪

目前5G已成业界热议话题,在即将到来的万物互联时代,5G是非常关键的技术。且5G相比4G,业务场景多种多样,对5G承载网带来巨大挑战。5G传输,承载先行并不仅仅是一个口号。当前5G承载网的部署...

linux-tao
42分钟前
4
0
维护“修理权”,苹果使用专有软件工具来修复MacBook Pro和iMac Pro

根据上月发给苹果授权服务提供商的一份文件,苹果公司正在使用新的专有软件诊断工具来修复MacBook Pros和iMac Pros,如果不用专有软件工具来修复关键部件,将会导致“系统失效和修复不完整”...

linuxCool
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部