2. 程式人生 > >強大的字串轉DateTime/Date型別函式

強大的字串轉DateTime/Date型別函式

阿新 • • 發佈：2018-12-05
字串轉DateTime/Date型別:
支援格式樣例：
2016-2-6;16-02-06;20160206;160206;06-02-2016;
06Feb2016;6Feb2016;06FEB16;6FEB16;06-FEB-2016;6-FEB-16;
日期分隔符號支援4個:   /-.\ 

interface
uses system.RegularExpressionsCore,system.StrUtils;
//字串轉DateTime型別
Function myStrToDateTime(sdate: String; defaultDate: TDateTime = 0): TDateTime;
//字串轉Date型別
Function myStrToDate(sdate: String; defaultDate: TDate = 0): TDate;
//英文字母月份轉換為對應數字月份.
function ReplaceMonStr(Adate: String): String;
// 擷取符合正則表示式的字串函式.
function MyPerlRegString(srcstr, pattern: String): String;
// 判斷字串是否符合正則表示式的函式.
function MyPerlRegBool(srcstr, pattern: String): boolean;
// 替換符合正則表示式的字串函式.
function MyPerlRegReplace(srcstr, pattern, newstr: String): String;

implementation
Function myStrToDateTime(sdate: String; defaultDate: TDateTime
= 0): TDateTime;
var

  dtPart: String;

  MyFormatSettings : TFormatSettings;

begin
  Result := 0;
  sdate := ReplaceStr(sdate, '.', '-');
  sdate := ReplaceStr(sdate, '/', '-');
  sdate := ReplaceStr(sdate, '\', '-');
  sdate := ReplaceText(sdate, '年', '-');
  sdate := ReplaceText(sdate, '月', '-');
  sdate := ReplaceText(sdate, '日', '-');
  // 日期部分預設格式:yyyy-MM-dd.
  MyFormatSettings.ShortDateFormat := 'yyyy-MM-dd';
  MyFormatSettings.LongDateFormat := 'yyyy-MM-dd';
  // 日期部分是ddMMMyyyy格式,轉換為dd-MM-yyyy.
  if MyPerlRegBool(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{4}\b') then
  begin
    sdate := ReplaceMonStr(sdate);
    MyFormatSettings.ShortDateFormat := 'dd-MM-yyyy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yyyy';
  end
  // 日期部分是ddmmmyy格式,轉換為dd-MM-yy格式.
  else if MyPerlRegBool(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{2}\b') then
  begin
    sdate := ReplaceMonStr(sdate);
    MyFormatSettings.ShortDateFormat := 'dd-MM-yy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yy';
  end
  // 日期部分是yyyymmmdd格式,轉換為YYYY-MM-dd格式.
  else if MyPerlRegBool(sdate, '^\d{8}\b') then
  begin
    dtPart := Copy(sdate, 1, 4) + '-' + Copy(sdate, 5, 2) + '-' +
      Copy(sdate, 7, 2);
    sdate := MyPerlRegReplaceAll(sdate, '^\d{8}\b', dtPart);
    MyFormatSettings.ShortDateFormat := 'yyyy-MM-dd';
    MyFormatSettings.LongDateFormat := 'yyyy-MM-dd';
  end
  // 日期部分是yymmmdd格式,yy-MM-dd格式.
  else if MyPerlRegBool(sdate, '^\d{6}\b') then
  begin
    dtPart := Copy(sdate, 1, 2) + '-' + Copy(sdate, 3, 2) + '-' +
      Copy(sdate, 5, 2);
    sdate := MyPerlRegReplaceAll(sdate, '^\d{6}\b', dtPart);
    MyFormatSettings.ShortDateFormat := 'yy-MM-dd';
    MyFormatSettings.LongDateFormat := 'yy-MM-dd';
  end
  // 日期部分是dd-MM-yyyy格式.
  else if MyPerlRegBool(sdate, '^\d{1,2}[\-]\d{1,2}[\-]\d{4}\b') then
  begin
    MyFormatSettings.ShortDateFormat := 'dd-MM-yyyy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yyyy';
  end
  // 格式:yyMMddHHnn.
  else if MyPerlRegBool(sdate, '^\d{10}\b') then
  begin
    sdate := Copy(sdate, 1, 2) + '-' + Copy(sdate, 3, 2) + '-' +
      Copy(sdate, 5, 2) + ' ' + Copy(sdate, 7, 2) + ':' + Copy(sdate, 9, 2);
    MyFormatSettings.ShortDateFormat := 'yy-MM-dd HH:nn';
    MyFormatSettings.LongDateFormat := 'yy-MM-dd HH:nn';
  end;
  Result := StrToDateTimeDef(sdate, defaultDate, MyFormatSettings);
end;


Function myStrToDate(sdate: String; defaultDate: TDate = 0): TDate;
begin
  Result := 0;
  sdate := ReplaceStr(sdate, '.', '-');
  sdate := ReplaceStr(sdate, '/', '-');
  sdate := ReplaceStr(sdate, '\', '-');
  sdate := ReplaceStr(sdate, '年', '-');
  sdate := ReplaceStr(sdate, '月', '-');
  sdate := ReplaceStr(sdate, '日', '-');
  // 日期部分預設格式:yyyy-MM-dd.
  MyFormatSettings.ShortDateFormat := 'yyyy-MM-dd';
  MyFormatSettings.LongDateFormat := 'yyyy-MM-dd';
  // 日期部分是ddMonyyyy格式,轉換為YYYY-MM-dd格式.
  if MyPerlRegBool(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{4}\b') then
  begin
    sdate := MyPerlRegString(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{4}\b');
    sdate := ReplaceMonStr(sdate);
    MyFormatSettings.ShortDateFormat := 'dd-MM-yyyy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yyyy';
  end
  // 日期部分是ddMonYY格式,轉換為YYYY-MM-dd格式.
  else if MyPerlRegBool(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{2}\b') then
  begin
    sdate := MyPerlRegString(sdate, '^\d{1,2}[\-]?[A-Z]{3,9}[\-]?\d{2}\b');
    sdate := ReplaceMonStr(sdate);
    MyFormatSettings.ShortDateFormat := 'dd-MM-yy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yy';
  end
  // 日期部分是yyyymmdd格式,轉換為YYYY-MM-dd格式.
  else if MyPerlRegBool(sdate, '^\d{8}\b') then
  begin
    sdate := Copy(sdate, 1, 4) + '-' + Copy(sdate, 5, 2) + '-' +
      Copy(sdate, 7, 2);
    MyFormatSettings.ShortDateFormat := 'yyyy-MM-dd';
    MyFormatSettings.LongDateFormat := 'yyyy-MM-dd';
  end
  // 日期部分是yymmdd格式,轉換為YYYY-MM-dd格式.
  else if MyPerlRegBool(sdate, '^\d{6}\b') then
  begin
    sdate := Copy(sdate, 1, 2) + '-' + Copy(sdate, 3, 2) + '-' +
      Copy(sdate, 5, 2);
    MyFormatSettings.ShortDateFormat := 'yy-MM-dd';
    MyFormatSettings.LongDateFormat := 'yy-MM-dd';
  end
  // 日期部分是dd-MM-yyyy格式.
  else if MyPerlRegBool(sdate, '^\d{1,2}[\-]\d{1,2}[\-]\d{4}\b') then
  begin
    sdate := MyPerlRegString(sdate, '^\d{1,2}[\-]\d{1,2}[\-]\d{4}\b');
    MyFormatSettings.ShortDateFormat := 'dd-MM-yyyy';
    MyFormatSettings.LongDateFormat := 'dd-MM-yyyy';
  end;
  Result := StrToDateDef(sdate, defaultDate, MyFormatSettings);
end;


function ReplaceMonStr(Adate: String): String;
begin
  with TPerlRegEx.Create do
  begin
    Subject := Adate;
    Options := [preCaseLess, preMultiLine, preExtended];
    if ContainsText(Adate, 'Jan') then
    begin
      RegEx := '[/\-\.\\]?Jan[uary]{0,4}[/\-\.\\]?';
      Replacement := '-01-';
    end
    else if ContainsText(Adate, 'Feb') then
    begin
      RegEx := '[/\-\.\\]?Feb[ruary]{0,5}[/\-\.\\]?';
      Replacement := '-02-';
    end
    else if ContainsText(Adate, 'Mar') then
    begin
      RegEx := '[/\-\.\\]?Mar[ch]{0,2}[/\-\.\\]?';
      Replacement := '-03-';
    end
    else if ContainsText(Adate, 'Apr') then
    begin
      RegEx := '[/\-\.\\]?Apr[il]{0,2}[/\-\.\\]?';
      Replacement := '-04-';
    end
    else if ContainsText(Adate, 'May') then
    begin
      RegEx := '[/\-\.\\]?May[/\-\.\\]?';
      Replacement := '-05-';
    end
    else if ContainsText(Adate, 'Jun') then
    begin
      RegEx := '[/\-\.\\]?(Jun|June)[/\-\.\\]?';
      Replacement := '-06-';
    end
    else if ContainsText(Adate, 'Jul') then
    begin
      RegEx := '[/\-\.\\]?(Jul|July)[/\-\.\\]?';
      Replacement := '-07-';
    end
    else if ContainsText(Adate, 'Aug') then
    begin
      RegEx := '[/\-\.\\]?Aug[ust]{0,3}[/\-\.\\]?';
      Replacement := '-08-';
    end
    else if ContainsText(Adate, 'Sep') then
    begin
      RegEx := '[/\-\.\\]?Sep[tember]{0,6}[/\-\.\\]?';
      Replacement := '-09-';
    end
    else if ContainsText(Adate, 'Oct') then
    begin
      RegEx := '[/\-\.\\]?Oct[ober]{0,4}[/\-\.\\]?';
      Replacement := '-10-';
    end
    else if ContainsText(Adate, 'Nov') then
    begin
      RegEx := '[/\-\.\\]?Nov[ember]{0,5}[/\-\.\\]?';
      Replacement := '-11-';
    end
    else if ContainsText(Adate, 'Dec') then
    begin
      RegEx := '[/\-\.\\]?Dec[ember]{0,5}[/\-\.\\]?';
      Replacement := '-12-';
    end;
    if Match then
      ReplaceAll;
    Result := Subject;
    Free;
  end;
end;


// 擷取符合正則表示式的字串函式.
Function MyPerlRegString(srcstr, pattern: String): String;
var
  reg: TPerlRegEx; // 宣告正則表示式變數
begin
  reg := TPerlRegEx.Create; // 建立
  try
    reg.Subject := srcstr; // 這是源字串
    reg.Options := [preCaseLess, preMultiLine];
    reg.RegEx := pattern;
    if reg.Match then
      Result := reg.MatchedText
    else
      Result := '';
  finally
    FreeAndNil(reg); // 或 reg.Free
  end;
end;


// 判斷字串是否符合正則表示式的函式.
Function MyPerlRegBool(srcstr, pattern: String): boolean;
var
  reg: TPerlRegEx; // 宣告正則表示式變數
begin
  reg := TPerlRegEx.Create; // 建立
  try
    reg.Subject := srcstr; // 這是源字串
    reg.Options := [preCaseLess, preMultiLine];
    reg.RegEx := pattern;
    Result := reg.Match;
  finally
    FreeAndNil(reg); // 或 reg.Free
  end;
end;


Function MyPerlRegReplace(srcstr, pattern, newstr: String): String;
var
  reg: TPerlRegEx; // 宣告正則表示式變數
begin
  reg := TPerlRegEx.Create; // 建立
  try
    reg.Subject := srcstr; // 這是源字串
    reg.Options := [preCaseLess, preMultiLine, preExtended];
    reg.RegEx := pattern;
    reg.Replacement := newstr;
    if reg.Match then
      reg.Replace;
    Result := reg.Subject;
  finally
    FreeAndNil(reg); // 或 reg.Free
  end;
end;

相關推薦

強大的字串轉DateTime/Date型別函式

字串轉DateTime/Date型別: 支援格式樣例： 2016-2-6;16-02-06;20160206;160206;06-02-2016; 06Feb2016;6Feb2016;06FEB16;6FEB16;06-FEB-2016;6-FEB-16; 日期分隔符號支援4個:   /

字串型別的日期轉化為Date型別

package com.th.mobula.test;import java.text.ParseException;import java.text.SimpleDateFormat;import java.util.Date;public class DateFormat { public stat

String轉化為date型別，從而獲取星期幾

//String轉化為Date型別，從而獲取時間  //StringtimeStr = "2018-10-30" publicStringgetStringOfDateWeek(StringtimeStr){ SimpleDateFormatformat=newSimpleD

字串轉DateTime

我們在處理字串日期格式常用DateTime.Pares() 但是這個形式的轉換是相當有限的，有些C#是會不懂你寫入的日期格式的如20031231。那麼類似 "20100101" 或者其它形式的字串如何轉換成日期型呢? 一、拼接字串的形式  DateTime dt=Convert.T

字串存入資料庫date型別欄位

有時候為了計算方便等原因需要將時間以date格式存入資料庫，但是前臺傳過來的資料型別都是字串，如果將字串直接插入date型別的欄位中會拋：ORA-01861: 文字與格式字串不匹配。 前臺頁面有一個表單，如下所示： <form action="......" method="get"&

String轉成Date型別，操作年月加減

public static void main(String[] args) { String date1 = "2017-07-30";           DateFormat df = new SimpleDateFormat("yy

C#字串轉DateTime

廢話不多說，直接貼程式碼 //將此時的時間轉化成例如20180808型別的字串 string strDate = DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString("00") + DateTim

C++:strtol() 字串轉長整型函式

字串轉長整型函式 long int strtol(const char *nptr,char **endptr,int base); 這個是函式原型，nptr就是我們的字串，endptr是結束符（N

JSON轉化物件時，日期字串轉化為Date

JSONObject jsonObject=JSONObject.fromObject(contract); String[] dateFormats = new String[] {"yyyy-MM-dd"}; //註冊日期轉化格式 JSONUtils.getMorph

Java String型別時間串 轉SQL Date型別存入資料庫

  開發過程中經常會遇到Java字串型別的時間需要存到資料庫中，但是Java String 轉date得到的結果往往不能直接存到資料庫中，因為java與資料庫date不太一樣，因此還需要進一步的處理，非常麻煩。初學者往往費九牛二虎之力才能解決這一問題。   經

springMvc自定義型別轉換器（把接收引數String轉成為Date型別）

1.  首先建立一個類，實現Converter介面，並實現其未實現方法。import org.springframework.core.convert.converter.Converter; public class CustomGlobalStrToDateConver

char字串轉double浮點函式——strtod

最近在編寫通訊協議解碼程式時需要把char字串轉換為double雙精度字串。本想自己寫段字數型別轉換的程式，就網上看看大家遇到這類問題都是採取怎樣的處理方式。經過一番搜尋，發現函式strtod可以實現

Java中String型別轉化為Date型別

import java.text.DateFormat; import java.text.ParseException; import java.text.SimpleDateFormat; import java.util.Date; //要轉化的字串 String e

String字串轉化為int型別

通常我們使用Integer的parseInt解析數字型字串， 它的內部是怎麼解析的呢？ String num="-2147483645"; int numInt=parseInt(num,10); 那麼Integer中的parseInt方法是如何做的呢？ publ

python預設json庫處理mysql中datetime,date型別不能序列化json的解決方案

今天處理mysql資料庫資料時，從資料庫中讀取了datetime和date型別。不幸運的是預設的json庫是不支援 datetime和date型別的序列化的。 #!/usr/bin/env python # -*- coding: utf-8 -*- """ Th

如何把資料庫中的String型別的資料在jsp頁面上轉化為date型別的資料

<span style="font-size:18px;">jsp頁面引入：<<a target=_blank href="mailto:%@taglib">%@tagl

C++ 將字串轉換成date型別的資料

#include <time.h> /* time_t, struct tm, time, localtime, strftime */ #include <string> #include <iostream> #incl

JS把字串轉換成Date型別

//把字串轉換成Date型別 function getDate(strDate){       var date = eval('new Date(' + strDate.replace(/\d+(?

將CST時間字串 轉成Date

                String dateStr = "Mon Apr 17 09:10:15 CST 2017"; SimpleDateFormat sdf = new SimpleDateFormat("EEE MMM dd HH:mm:ss zzz yyy

bytes型別轉字串 字典字串之間的轉換 eval 函式

一、bytes 型別 轉 字串：     str = bytes資料.decode() 二、字串型別的字典轉成字典     先匯入json模組     import json     dict = json.loads(str) 三、字典轉成字串型別     s