#2 Non US Date Fields

[Anonymous]

Hi

This is safer date conversion function:

procedure TLLDateField.internalFromXML(strValue: string);
var
year, month, day: string;
begin
strvalue := trim(strValue);
year := copy(strValue, 1, 4);
month := copy(strvalue, 6, 2);
day := copy(strvalue, 9, 2);
AsDate := EncodeDate(strtoint(year), strtoint(month),
strtoint(day));
// AsDate := StrToDate(Format('%s/%s/%s', [month, day,
year]));
end;

Andrew