paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Implements NormalizeDateTime

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2013 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo 2011-09-25 17:51:38 +00:00
parent e9b9262598
commit 8db5832907
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/jujiboutils/jujibo-utils/src/jcontrolutils.pas
View File

@ -30,6 +30,8 @@ function NormalizeDate(const Value: string; theValue: TDateTime;
const theFormat: string = ''): string;
function NormalizeTime(const Value: string; theValue: TTime;
const theFormat: string = ''): string;
function NormalizeDateTime(const Value: string; theValue: TDateTime;
const theFormat: string = ''): string;
function NormalizeDateSeparator(const s: string): string;
function IsValidDateString(const Value: string): boolean;
function IsValidTimeString(const Value: string): boolean;
@ -197,6 +199,33 @@ begin
//ShowMessage('Hora normalizada: ' + Result);
end;
function NormalizeDateTime(const Value: string; theValue: TDateTime;
const theFormat: string): string;
var
tokens: TStringList;
theDateTime: TDateTime;
dateString, timeString: string;
begin
if theValue = 0 then
theDateTime := Now
else
theDateTime := theValue;
Result := '';
Split(' ', Value, tokens);
if tokens.Count > 1 then
begin
if tokens[0] <> '' then
dateString := tokens[0];
if tokens[1] <> '' then
timeString := tokens[1];
dateString := NormalizeDate(dateString, theDateTime);
timeString := NormalizeTime(timeString, theDateTime);
if IsValidDateString(dateString) and IsValidTimeString(timeString) then
Result := dateString + ' ' + timeString;
end;
tokens.Free;
end;
function NormalizeDateSeparator(const s: string): string;
var
i: integer;