文档章节

学习官方示例 - SysUtils.DecodeDate、DecodeTime

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 90
阅读 4
收藏 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
  Present := Now;
  DecodeDate(Present, Year, Month, Day);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Text := Format('%d年%d月%d日 %d:%d:%d:%d', [Year, Month, Day, Hour, Min, Sec, MSec]);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/09/11/1289102.html

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

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

张乐1024
2015/08/19
0
0
UE4 (UnrealEngine) 官方百度网盘资源

由 UnrealChina 坚持维护了近两年的网盘,教程非常全面,所有资源公开可下载,希望能帮到大家! 注意:原网盘链接专辑页面已被百度屏蔽,暂时用以下方式访问 本专辑共19个文件 虚幻4.16官方学...

kitok
2018/05/10
0
0
车江毅/NScript

##.Net 动态脚本引擎 NScript## 用于解决.net环境windows系统下类似java中Grovvy的功能和方向。 在互联网项目可以用来做一些功能,如动态营销活动(营销业务解耦和剥离),规则引擎,流程引擎...

车江毅
2016/06/27
0
0
物联网应用协议学习笔记 2.1.3 用UDP工具来调试CoAP

1 前言 CoAP的调试,目前没找到好用的工具,网上说的火狐插件现在也不能用了,多希望手头的TCP/UDP网络调试工具就可以支持。 既然CoAP是基于UDP来组包的,那肯定是可以实现。 所以这篇文章给...

iotisan
2018/04/25
0
0
基于SAE python 开源应用收集

虽然目前SAE python还在内测,但开发者还能较顺利获得邀请码。现在已经出现了好多应用,大部分是以练习的形式出现,收集了一些开源的应用,供大家参观学习。 SAE python blog1)SAEpy-log 框...

huxueyi
2012/02/05
0
1

没有更多内容

加载失败,请刷新页面

加载更多

移植Modbus到STM32F103(2):移植FreeModbus到usart3并运行示例代码

FreeModbus是Modbus的一个被广泛移植的实现。其源码在github,最新版是1.6。 FreeModbus支持Modbus功能码里的0x01~0x06,0x0F~0x11和0x17,对一些功能比如异常诊断和读事件计数等功能码并没有...

Konstantine
36分钟前
0
0
浅谈神经网络(神经网络篇)

背景 之前写过浅谈神经网络基础篇,简单介绍下机器学习这块内容,用于扫盲。本文正式将神经网络,这部分是深度学习的基础。了解完可以掌握强大的机器学习的方法,也可以更好的了解深度学习。...

Uknowzheng
今天
3
0
移动硬盘变为RAW格式后的修复

在Mac上使用自己的移动硬盘结果文件系统格式变为RAW; 在自己windows笔记本上使用chkdsk H: /F进行修复,修复日志如下: C:\Users\mengzhang6>chkdsk H: /F文件系统的类型是 NTFS。卷标是 do...

晨猫
今天
3
0
10 Git —— 标签管理

10 Git —— 标签管理 本节内容: 命令git tag <tagname>用于新建一个标签,默认为HEAD,也可以指定一个commit id;命令git tag -a <tagname> -m "blablabla..."可以指定标签信息;命令git......

lwenhao
今天
3
0
小程序设置垂直居中,水平居中

如果子容器中的view需要居中的话,那需要在父容器中设置居中 水平居中: display: flex; flex-direction: column; align-items: center; 垂直居中 display: flex;align-items: cen...

淘幻幻
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部