文档章节

DecodeDate、DecodeTime ... DecodeDateTime ... 分解时间

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 232
阅读 4
收藏 0
SysUtils.DecodeDate();
SysUtils.DecodeDateFully();
SysUtils.DecodeTime();

DateUtils.DecodeDateTime();
DateUtils.DecodeDateDay();
DateUtils.DecodeDateWeek();
DateUtils.DecodeDateMonthWeek();
DateUtils.DecodeDayOfWeekInMonth();

 
 
 
 
 

 

 

  

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);
var
  t: TDateTime;
  Year, Month, Day, Week: Word;
  Hour, Min, Sec, MSec: Word;
begin
  t := EncodeDateTime(2009, 5, 21, 11, 22, 33, 999);

  DecodeDate(t, Year, Month, Day);
  ShowMessageFmt('%d,%d,%d', [Year, Month, Day]); //2009,5,21

  DecodeDateFully(t, Year, Month, Day, Week);
    ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Day, Week]); //2009,5,21,5; 最后的 5 表示周四

  DecodeTime(t, Hour, Min, Sec, MSec);
  ShowMessageFmt('%d,%d,%d,%d', [Hour, Min, Sec, MSec]); //11,22,33,999

  DecodeDateTime(t, Year, Month, Day, Hour, Min, Sec, MSec);
  ShowMessageFmt('%d,%d,%d,%d,%d,%d,%d', [Year, Month, Day, Hour, Min, Sec, MSec]); //2009,5,21,11,22,33,999

  DecodeDateDay(t, Year, Day);
  ShowMessageFmt('%d,%d', [Year, Day]); //2009,141; 2009 年第 141 天

  DecodeDateWeek(t, Year, Week, Day);
  ShowMessageFmt('%d,%d,%d', [Year, Week, Day]); //2009,21,4; 2009 年第 21 周, 周 4

  DecodeDateMonthWeek(t, Year, Month, Week, Day);
  ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4; 2009 年 5 月的第 3 周, 周 4

  DecodeDayOfWeekInMonth(t, Year, Month, Week, Day);
  ShowMessageFmt('%d,%d,%d,%d', [Year, Month, Week, Day]); //2009,5,3,4
end;


end.


DateUtils-Function

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
System.DateUtils Pick-a-field functions部分函数示例及说明

这个部分我们从定义上就可以理解它的作用,就是摘取某一区域,或者说叫选择某一段的值. 该部分分为两部分,提取日期部分的某一段,或者提取时间部分的某一段.日期部分本质上调用的是DecodeDateF...

张乐1024
2015/08/19
28
0
结构思维——用结构化思考让数据分析到达问题的底层

文 | KEYA 来源:keeya - 简书 作者是国内某高水平数据挖掘与数据分析公司的数据分析师 对数据分析而言,不仅仅是直接回答问题,同时还需要针对问题,不断去探求,不断去深入。当探求问题的时...

李启方
2017/07/24
0
0
量子计算将能分解任意极大整数,RSA加密或成摆设

就算是一台超级计算机有可能在数年的时间内计算出任意质因数,这也是得不偿失的。为了科学地解决这个问题,麻省理工学院(MIT)的科学家找到了明确的方法。今天,《科学》杂志最新发表的一篇...

雪花又一年
2018/05/15
0
0
C标准函数库中获取时间与日期、对时间与日期数据操作及格式化

表示时间的三种数据类型[编辑] 日历时间(calendar time),是从一个标准时间点(epoch)到现在的时间经过的秒数,不包括插入闰秒对时间的调整。开始计时的标准时间点,各种编译器一般使用1...

云栖希望。
2017/12/04
0
0
【算法和数据结构】排序(四)归并排序和快速排序(C++实现)

归并排序和快速排序 前言: 前面三篇文章分别介绍了三种排序算法:冒泡排序、插入排序和选择排序。它们的实现思想都是基于排序问题本身产生的,时间复杂度都是θ(n^2)。 而现在介绍的两种排...

qq_28869927
2017/01/04
0
0

没有更多内容

加载失败,请刷新页面

加载更多

一起来学Java8(四)——复合Lambda

在一起来学Java8(二)——Lambda表达式中我们学习了Lambda表达式的基本用法,现在来了解下复合Lambda。 Lambda表达式的的书写离不开函数式接口,复合Lambda的意思是在使用Lambda表达式实现函...

猿敲月下码
20分钟前
6
0
debian10使用putty配置交换机console口

前言:Linux的推广普及,需要配合解决实际应用方能有成效! 最近强迫自己用linux进行实际工作,过程很痛苦,还好通过网络一一解决,感谢各位无私网友博客的帮助! 系统:debian10 桌面:xfc...

W_Lu
51分钟前
10
0
aelf Enterprise 0.8.0 beta有奖公测,“Bug奖金计划”重磅开启

2019年9月30日,aelf Enterprise 0.8.0 beta版正式发布。aelf Enterprise 0.8.0 beta是一个完备的区块链系统, 包含完备的区块链系统、开发套件、开发文档、以及配套的基础应用和基础服务。 ...

AELF开发者社区
52分钟前
8
0
oracle 初始化数据库脚本

create user lpf identified by 123456; create tablespace lpf_ts_cms datafile '/opt/app/oracle/product/11.2.0/lpf.dbf' size 200M; alter user lpf default tablespace lpf_ts_cms; sel......

internetafei
57分钟前
8
0
深入了解Redis底层数据结构

说明 说到Redis的数据结构,我们大概会很快想到Redis的5种常见数据结构:字符串(String)、列表(List)、散列(Hash)、集合(Set)、有序集合(Sorted Set),以及他们的特点和运用场景。不过它们是...

TurboSanil
57分钟前
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部