文档章节

EncodeDateTime ... TryEncodeDateTime ... 构建时间

涂孟超
 涂孟超
发布于 2014/09/26 15:31
字数 269
阅读 10
收藏 0
SysUtils.EncodeDateTime
SysUtils.EncodeDate
SysUtils.EncodeTime

DateUtils.EncodeDateDay
DateUtils.EncodeDateMonthWeek
DateUtils.EncodeDateTime
DateUtils.EncodeDateWeek
DateUtils.EncodeDayOfWeekInMonth

DateUtils.TryEncodeDateTime
DateUtils.TryEncodeDateDay
DateUtils.TryEncodeDateWeek
DateUtils.TryEncodeDateMonthWeek
DateUtils.TryEncodeDayOfWeekInMonth

 
 
 
 
 

 

 

  

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  t: TDateTime;
  s: string;
begin
  t := EncodeDateTime(2009, 5, 20, 11, 22, 33, 999);
  s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 11:22:33:999

  t := EncodeDate(2009, 5, 20);
  s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 0:0:0:000

  t := EncodeTime(11, 22, 33, 999);
  s := FormatDateTime('h:n:s:zzz', t);          //11:22:33:999

  t := EncodeDateDay(2009, 140);
  s := FormatDateTime('yyyy-m-d', t);           //2009-5-20

  t := EncodeDateWeek(2009, 21);
  s := FormatDateTime('yyyy-m-d', t);           //2009-5-18
  t := EncodeDateWeek(2009, 21, 3);
  s := FormatDateTime('yyyy-m-d', t);           //2009-5-20

  t := EncodeDateMonthWeek(2009, 5, 3, 3);
  s := FormatDateTime('yyyy-m-d', t);           //2009-5-20

  t := EncodeDayOfWeekInMonth(2009, 5, 3, 3);
  s := FormatDateTime('yyyy-m-d', t);           //2009-5-20

  if TryEncodeDateTime(2009, 5, 20, 11, 22, 33, 999, t) then
    s := FormatDateTime('yyyy-m-d h:n:s:zzz', t);      //2009-5-20 11:22:33:999

  if TryEncodeDateDay(2009, 140, t) then
    s := FormatDateTime('yyyy-m-d', t);                //2009-5-20

  if TryEncodeDateWeek(2009, 21, t) then
    s := FormatDateTime('yyyy-m-d', t);                //2009-5-18

  if TryEncodeDateMonthWeek(2009, 5, 3, 3, t) then
    s := FormatDateTime('yyyy-m-d', t);                //2009-5-20

  if TryEncodeDayOfWeekInMonth(2009, 5, 3, 3, t) then
    s := FormatDateTime('yyyy-m-d', t);                //2009-5-20
end;


end.


DateUtils-Function

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
[译]改善 Android Studio 的构建速度

原文地址:Improving build speed in Android Studio 原文作者:Android Developers 译文出自:掘金翻译计划 本文永久链接:github.com/xitu/gold-m… 译者:qiuyuezhong 校对者:csming199...

Android_开发者
08/23
0
0
kylin cube 增量和全量

全量构建与增量构建 全量构建 对数据模型中没有指定分割时间列信息的Cube,Kylin会采用全量构建,即每次从Hive中读取全部的数据来开始构建。通常它适用于以下两种情形。 事实表的数据不是按时...

张欢19933
01/10
115
0
Android 应用构建速度提升的十个小技巧

应用的构建速度会直接影响开发效率,本文将带您通过改造一个 Android 应用: “Google 追踪圣诞老人 (Google Santa Tracker)” 来为大家提供十个小技巧,帮助提升应用的 Gradle 构建速度,当我...

Android_开发者
08/15
0
0
【技术帖】使用KyBot寻找Apache Kylin离线构建瓶颈

Apache Kylin是当今最流行的OLAP on Hadoop 分析引擎之一,它可以在PB规模数据集上取得亚秒级查询能力,帮助大数据分析师简单通过SQL或BI工具就能在大数据上进行交互式分析。 Apache Kylin的...

ApacheKylin
2017/07/18
228
0
阿里零售通 App 工程提效实践:提升 50% 的编译速度

前言 当前,大多数 Android 工程都是基于 Gradle 工具进行构建和编译的,一开始,当你的工程不够复杂,或者还只是小型项目的情况下,基本都不需要去关心构建优化的事情,而随着业务变得复杂、...

yonglan.whl
2018/11/13
0
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
11
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
9
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部