摘要：
//取每月的第一天函数TDealWithXML FDOM（日期：TDateTime）：TDateTime；varYear，Month，Day:Word；开始解码日期（日期、年、月、日）；结果：=编码日期（年、月、1）；结束；//以每月最后一天的函数TDealWithXML为例。LDOM（日期：T
//取当月的第一天
function TDealWithXML.FDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
Result := EncodeDate(Year, Month, 1);
end;
//取当月的最后一天
function TDealWithXML.LDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
if Month < 12 then inc(Month)
else begin Month := 1; inc(Year) end;
Result := EncodeDate(Year, Month, 1) - 1;
end;