文档章节

学习官方示例 - 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的strtotime举例

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

贪睡猫仙mosen
2014/02/18
0
1
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

没有更多内容

加载失败,请刷新页面

加载更多

Navicat怎样导入Excel表格和txt文本的数据

Navicat怎样导入Excel表格和txt文本的数据 2018年07月02日 11:29:11 零碎de記憶 阅读数:2433 版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_39135287/ar...

linjin200
27分钟前
0
0
使用MaxCompute Java SDK运行安全相关命令

使用MaxCompute Console的同学,可能都使用过MaxCompute安全相关的命令。官方文档上有详细的MaxCompute 安全指南 ,并给出了安全相关语句汇总 。 简而言之, 权限管理 、 列级别访问控制 、 ...

阿里云云栖社区
32分钟前
0
0
中小公司的Java工程师应该如何逆袭冲进BAT?

(1)80% Java工程师都有的迷茫 这篇文章,跟大家聊一聊很多很多很多人问我的一个问题:中小公司的Java工程师应该如何规划准备,才能跳槽进入BAT这类一线互联网公司? 之所以我用了三个 “很...

Java填坑路
32分钟前
2
0
你的应用够安全吗?绿标2.0隐私权限详解

近日,最新一期的《绿色应用达标率调查报告》结果显示,应用在安全方面的通过率仅为57%,相较于其他四项标准通过率最低。其中隐私权限的过度获取是主要原因之一,需要开发者尽快完成整改。 ...

安卓绿色联盟
42分钟前
0
0
使用MaxCompute Java SDK运行安全相关命令

使用MaxCompute Console的同学,可能都使用过MaxCompute安全相关的命令。官方文档上有详细的MaxCompute安全指南,并给出了安全相关语句汇总。 简而言之,权限管理、列级别访问控制、项目空间...

阿里云官方博客
47分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部