Changeset 52 for trunk/Packages/Common
- Timestamp:
- Jul 25, 2016, 5:37:39 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UXMLUtils.pas
r3 r52 97 97 if Pos('Z', XMLDateTime) > 0 then 98 98 LeftCutString(XMLDateTime, Part, 'Z'); 99 SecondFraction := StrToFloat('0 .'+ Part);99 SecondFraction := StrToFloat('0' + DecimalSeparator + Part); 100 100 Millisecond := Trunc(SecondFraction * 1000); 101 101 end else begin
Note:
See TracChangeset
for help on using the changeset viewer.