Changeset 32 for trunk/Packages
- Timestamp:
- Jul 26, 2016, 9:01:46 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UXMLUtils.pas
r15 r32 99 99 if Pos('Z', XMLDateTime) > 0 then 100 100 LeftCutString(XMLDateTime, Part, 'Z'); 101 SecondFraction := StrToFloat('0 .'+ Part);101 SecondFraction := StrToFloat('0' + DecimalSeparator + Part); 102 102 Millisecond := Trunc(SecondFraction * 1000); 103 103 end else begin
Note:
See TracChangeset
for help on using the changeset viewer.