文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 232
阅读 2
收藏 0
点赞 0
评论 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

 
 
 
 
 

 

 

  

© 著作权归作者所有

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

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

orientalfashion ⋅ 2013/10/30 ⋅ 0

PHP时间戳函数总结

PHP语言中的函数有许多种,各种应用方式不同,实现的功能也不尽相同。我们在本文种为大家总结了PHP时间戳函数,希望能作为参考学习对象。 一,PHP时间戳函数获取指定日期的unix时间戳 strtot...

lg2045 ⋅ 2013/05/24 ⋅ 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

如何利用PHP时间戳获取当前时间

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

liangxiao ⋅ 2012/09/14 ⋅ 0

php中时间戳和日期格式的转换

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

蜗牛奔跑 ⋅ 2016/03/15 ⋅ 0

php的strtotime举例

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

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

php--------获取当前时间、时间戳

首先需要知道的是在php中获取时间方法是date(),在php中获取时间戳方法有time()、strtotime()。下面分别说明。 date() 格式为:date($format, $timestamp),format为格式、timestamp为时间戳...

切切歆语 ⋅ 01/21 ⋅ 0

PHP获取当前时间、时间戳的各种格式写法汇总[日期时间]

今天写下php中,如何通过各种方法 获取当前系统时间、时间戳,并备注各种格式的含义,可灵活变通。 1、获取当前时间方法date() 很简单,这就是获取时间的方法,格式为:date($format, $time...

vancoud ⋅ 2013/06/23 ⋅ 0

php中挺好用的strtotime方法

在PHP中,网站推广经常要对日期进行计算,比如要计算一个月前的日期,那么其实最快的方法 是用strtotime,其功能很丰富,如下: Java代码 echo strtotime("now"), "n"; echo strtotime("10 Septemb...

网络营销 ⋅ 2012/01/03 ⋅ 0

php获取当前时间之后第N个自然月最后一天的日期

function get_Month($num){//获取当前的时间$firstdate = date('Y-m-d');$start=intval(date("m",strtotime($firstdate)));for($i=0;$i<$num;$i++){if(($start+$i)>12){$result_day = date(......

hyelaine ⋅ 2012/11/03 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

RabbitMQ学习以及与Spring的集成(三)

本文介绍RabbitMQ与Spring的简单集成以及消息的发送和接收。 在RabbitMQ的Spring配置文件中,首先需要增加命名空间。 xmlns:rabbit="http://www.springframework.org/schema/rabbit" 其次是模...

onedotdot ⋅ 18分钟前 ⋅ 0

JAVA实现仿微信红包分配规则

最近过年发红包拜年成为一种新的潮流,作为程序猿对算法的好奇远远要大于对红包的好奇,这里介绍一种自己想到的一种随机红包分配策略,还请大家多多指教。 算法介绍 一、红包金额限制 对于微...

楠木楠 ⋅ 30分钟前 ⋅ 0

Python 数电表格格式化 xlutils xlwt xlrd的使用

需要安装 xlutils xlwt xlrd 格式化前 格式化后 代码 先copy读取的表格,然后按照一定的规则修改,将昵称中的学号提取出来替换昵称即可 from xlrd import open_workbookfrom xlutils.copy ...

阿豪boy ⋅ 今天 ⋅ 0

面试题:使用rand5()生成rand7()

前言 读研究生这3 年,思维与本科相比变化挺大的,这几年除了看论文、设计方案,更重要的是学会注重先思考、再实现,感觉更加成熟吧,不再像个小P孩,人年轻时总会心高气傲。有1 道面试题:给...

初雪之音 ⋅ 今天 ⋅ 0

Docker Toolbox Looks like something went wrong

Docker Toolbox 重新安装后提示错误:Looks like something went wrong in step ´Checking if machine default exists´ 控制面板-->程序与应用-->启用或关闭windows功能:找到Hyper-V,如果处......

随你疯 ⋅ 今天 ⋅ 0

Guacamole 远程桌面

本文将Apache的guacamole服务的部署和应用,http://guacamole.apache.org/doc/gug/ 该链接下有全部相关知识的英文文档,如果水平ok,可以去这里仔细查看。 一、简介 Apache Guacamole 是无客...

千里明月 ⋅ 今天 ⋅ 0

nagios 安装

Nagios简介:监控网络并排除网络故障的工具:nagios,Ntop,OpenVAS,OCS,OSSIM等开源监控工具。 可以实现对网络上的服务器进行全面的监控,包括服务(apache、mysql、ntp、ftp、disk、qmail和h...

寰宇01 ⋅ 今天 ⋅ 0

AngularDart注意事项

默认情况下创建Dart项目应出现以下列表: 有时会因为不知明的原因导致列表项缺失: 此时可以通过以下步骤解决: 1.创建项目涉及到的包:stagehand 2.执行pub global activate stagehand或pub...

scooplol ⋅ 今天 ⋅ 0

Java Web如何操作Cookie的添加修改和删除

创建Cookie对象 Cookie cookie = new Cookie("id", "1"); 修改Cookie值 cookie.setValue("2"); 设置Cookie有效期和删除Cookie cookie.setMaxAge(24*60*60); // Cookie有效时间 co......

二营长意大利炮 ⋅ 今天 ⋅ 0

【每天一个JQuery特效】淡入淡出显示或隐藏窗口

我是JQuery新手爱好者,有时间就练练代码,防止手生,争取每天一个JQuery练习,在这个博客记录下学习的笔记。 本特效主要采用fadeIn()和fadeOut()方法显示淡入淡出的显示效果显示或隐藏元...

Rhymo-Wu ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部