文档章节

RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 263
阅读 20
收藏 0
DateUtils.RecodeDateTime();
DateUtils.RecodeDate();
DateUtils.RecodeTime();
DateUtils.RecodeYear();
DateUtils.RecodeMonth();
DateUtils.RecodeDay();
DateUtils.RecodeHour();
DateUtils.RecodeMinute();
DateUtils.RecodeSecond();
DateUtils.RecodeMilliSecond();
DateUtils.TryRecodeDateTime();

 
 
 
 
 

 

 

  

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
const
  st = 'yyyy-m-d h:n:s:z';
var
  t1, t2: TDateTime;
begin
  t1 := EncodeDateTime(2001, 1, 1, 1, 1, 1, 1);

  t2 := RecodeDateTime(t1, 2009, 5, 21, 11, 22, 33, 999);
  ShowMessage(FormatDateTime(st, t2));   //2009-5-21 11:22:33:999

  t2 := RecodeDate(t1, 2009, 5, 21);
  ShowMessage(FormatDateTime(st, t2));   //2009-5-21 1:1:1:1

  t2 := RecodeTime(t1, 11, 22, 33, 999);
  ShowMessage(FormatDateTime(st, t2));   //2009-1-1 11:22:33:999

  t2 := RecodeYear(t1, 2009);
  ShowMessage(FormatDateTime(st, t2));   //2009-1-1 1:1:1:1

  t2 := RecodeMonth(t1, 5);
  ShowMessage(FormatDateTime(st, t2));   //2001-5-1 1:1:1:1

  t2 := RecodeDay(t1, 21);
  ShowMessage(FormatDateTime(st, t2));   //2001-1-21 1:1:1:1

  t2 := RecodeHour(t1, 11);
  ShowMessage(FormatDateTime(st, t2));   //2001-1-1 11:1:1:1

  t2 := RecodeMinute(t1, 22);
  ShowMessage(FormatDateTime(st, t2));   //2001-1-1 1:22:1:1

  t2 := RecodeSecond(t1, 33);
  ShowMessage(FormatDateTime(st, t2));   //2001-1-1 1:1:33:1

  t2 := RecodeMilliSecond(t1, 999);
  ShowMessage(FormatDateTime(st, t2));   //2001-1-1 1:1:1:999

  if TryRecodeDateTime(t1, 2009, 5, 21, 11, 22, 33, 999, t2) then
    ShowMessage(FormatDateTime(st, t2));   //2009-5-21 11:22:33:999
end;

end.


DateUtils-Function

本文转载自:http://www.cnblogs.com/del/archive/2009/05/21/1486065.html

上一篇: uses 子句的写法
下一篇: 写在博客一周年
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi: TDate 转换为其他格式

我怎样转换本地 myDate 为格式:31/12/2011? RecodeDate?谢谢。

老古董
2011/08/01
566
1
Linux下的三个时间属性

Linux下的文件有三个时间属性。分别为atime、ctime、mtime。 atime:access time,即文件的最近一次访问时间。 ctime:change time,即文件的最近一次改变时间(这里并非create time创建时间...

cy_lyh
2016/05/15
0
0
linux 文件三种时间 和 find 按时间查找

linux 文件的三种时间(以 find 为例):通过stat myfile命令也可查看到 atime 最后一次访问时间, 如 less, more 等, 但 chmod, chown, ls, stat 等不会修改些时间, 使用 ls -utl 可以按此时间顺...

SibylY
2016/09/05
374
0
在 Linux 下 9 个有用的 touch 命令示例

命令用于创建空文件,也可以更改 Unix 和 Linux 系统上现有文件时间戳。这里所说的更改时间戳意味着更新文件和目录的访问以及修改时间。 让我们来看看 命令的语法和选项: 语法: 命令中使用...

作者: Pradeep Kumar
2018/05/02
0
0
ubuntu修改时区和时间的方法

ubuntu修改时区和时间的方法 1、首先要查看时区 root@ubuntu:~# date -RWed, 13 Sep 2017 21:04:21 -0400 如果要修改时区,执行 tzselect 2、选择区域:亚洲 root@ubuntu:~# tzselectPlease ...

安好52199
2017/09/14
0
0

没有更多内容

加载失败,请刷新页面

加载更多

前端面试题汇总

一. HTML常见的兼容性 1.HTML5 标签在低版本浏览器不兼容 解决办法:使用html5shiv库,引入下列语句 <!--[if lte IE 8]> <script src="https://cdn.bootcss.com/html5shiv/r29/html5.js"></sc......

蓝小驴
39分钟前
10
0
OSChina 周四乱弹 —— 我气的脸都黑了!

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 小小编辑推荐《Red Battle》- 高橋李依 / 豊崎愛生 《Red Battle》- 高橋李依 / 豊崎愛生 手机党少年们想听歌,请使劲儿戳(这里) @丶Lion ...

小小编辑
52分钟前
668
23
找OSG教程, B站就有

https://www.bilibili.com/video/av64849038?from=search&seid=11632913960900279653

洛克人杰洛
今天
6
0
学习记录(day07-Vue组件、自定义属性、自定义事件)

[TOC] 1.1.1什么是组件 一个vue文件就是一个组件 组件将html标签/css样式/对应JS打包成一个整体,也可以理解钻进一个具有样式和特效的自定义标签。 一、编写组件(提供方)<template> <di...

庭前云落
今天
5
0
使用Prometheus监控SpringBoot应用

通过之前的文章我们使用Prometheus监控了应用服务器node_exporter,数据库mysqld_exporter,今天我们来监控一下你的应用。(本文以SpringBoot 2.1.9.RELEASE 作为监控目标) 编码 添加依赖 使...

JAVA日知录
今天
9
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部