日期有关问题

日期问题
请问下怎么取每月的15日;
也就是:当前系统日期:05/30/2007     取每月的15日:05/15/2007
              当前系统日期:06/01/2007     取每月的15日:06/15/2007
有什么好方法吗?谢谢!~


[解决办法]
DateTimePicker1.Date :=StrToDate(FormatDateTime( 'yyyy-mm ',now)+ '-15 ');
[解决办法]
var
s:string;
begin
s:=FormatDateTime('MM/15/yyyy',now);
end;
[解决办法]