Delphi의 시간 및 문자열 함수 코드 예

SysUtils.StrToDate();
SysUtils.StrToDateDef();
SysUtils.TryStrToDate();

SysUtils.StrToTime();
SysUtils.StrToTimeDef();
SysUtils.TryStrToTime();

SysUtils.StrToDateTime();
SysUtils.StrToDateTimeDef();
SysUtils.TryStrToDateTime();

SysUtils.DateToStr();
SysUtils.TimeToStr();
SysUtils.DateTimeToStr();
SysUtils.DateTimeToString();

SysUtils.FormatDateTime();
SysUtils.FormatDateTime();     :
 unit　Unit1;
interface
uses
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,
　Dialogs;

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

var
　Form1:　TForm1;

implementation

{$R　*.dfm}

uses　DateUtils;

procedure　TForm1.FormCreate(Sender:　TObject);
var
　d:　TDateTime;
　str:　string;
　fmt:　TFormatSettings;
begin
　d　:=　StrToDateTime('2009-5-21　11:22:33');

　str　:=　DateTimeToStr(d);
　ShowMessage(str);　//　2009-5-21　11:22:33

　GetLocaleFormatSettings(GetThreadLocale,　fmt);
　fmt.DateSeparator　:=　'/';
　fmt.TimeSeparator　:=　'_';
　fmt.ShortDateFormat　:=　'dd/mm/yyyy';
　fmt.ShortTimeFormat　:=　'hh:mm:ss';
　str　:=　DateTimeToStr(d,　fmt);
　ShowMessage(str);　//　21/05/2009　11_22_33

　DateTimeToString(str,　'yyyy　 　m　 　d　 　h　 　m　 　s　 ',　d);
　ShowMessage(str);　//2009　 　5　 　21　 　11　 　22　 　33　 
end;

end.

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

Delphi의 시간 및 문자열 함수 코드 예

좋은 웹페이지 즐겨찾기