added by hdk If the attribute with name AName exists, then set its value to the TDateTime AValue. If it does not exist, then create a new attribute AName with the TDateTime value converted to a quoted string. If ADefault = AValue, and WriteOnDefault = False, no attribute will be added.