文档章节

学习官方示例 - 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
644
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
85
0
如何利用PHP时间戳获取当前时间

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

liangxiao
2012/09/14
0
0
php的strtotime举例

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

贪睡猫仙mosen
2014/02/18
455
1
php中时间戳和日期格式的转换

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

蜗牛奔跑
2016/03/15
55
0

没有更多内容

加载失败,请刷新页面

加载更多

为什么要在网站中应用CDN加速?

1. 网页加载速度更快 在网站中使用CDN技术最直接的一个好处就是它可以加快网页的加载速度。首先,CDN加速的内容分发是基于服务器缓存的,由于CDN中缓存了不少数据,它能够给用户提供更快的页...

云漫网络Ruan
37分钟前
7
0
亚玛芬体育(Amer Sports)和信必优正式启动合作开发Movesense创新

亚玛芬体育和信必优正式启动合作开发Movesense创新,作为亚玛芬体育的完美技术搭档,信必优利用Movesense传感器技术为第三方开发移动应用和服务。 Movesense基于传感器技术和开放的API,测量...

symbiochina88
48分钟前
4
0
创龙TI AM437x ARM Cortex-A9 + Xilinx Spartan-6 FPGA核心板规格书

SOM-TL437xF是一款广州创龙基于TI AM437x ARM Cortex-A9 + Xilinx Spartan-6 FPGA芯片设计的核心板,采用沉金无铅工艺的10层板设计,适用于高速数据采集和处理系统、汽车导航、工业自动化等领...

Tronlong创龙
48分钟前
4
0
好程序员Java学习路线分享MyBatis之线程优化

  好程序员Java学习路线分享MyBatis之线程优化,我们的项目存在大量用户同时访问的情况,那么就会出现大量线程并发访问数据库,这样会带来线程同步问题,本章我们将讨论MyBatis的线程同步问...

好程序员官方
54分钟前
6
0
IDEA 自定义方法注解模板

IDEA 自定义方法注解模板 1、使用效果 /*** 计算交易费用* @Author wangjiafang* @Date 2019/9/11* @param feeComputeVo* @return*/@PostMapping("/v1/fee_compute")public ApiResp......

小白的成长
54分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部