摘要： 求一个月的第一天和最后一天：function THiSettlForm.Init:string;begin dtp1.DateTime:=FDOM(Now); dtp2.DateTime:=LDOM(Now);end;function THiSettlForm.FDOM(Date: TDateTime): TDateTime;var Year, Month, Day: Word;begin DecodeDate(Date, Year, Month, Day); //month:=dec(month); if Month >1 then dec(Month) else begin Mont 阅读全文