2013 年 8月 6 日随笔档案 - 倾天

2013年8月6日

摘要： USER ：DateUtils使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可；procedure TForm1.btn1Click(Sender: TObject);begin mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now))); //mmo1.Lines.Add(DateTimeToStr(StartOfTheMont 阅读全文

posted @ 2013-08-06 16:15 倾天阅读(573) 评论(0) 推荐(0)