C cghzzw Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #1 系統時間設定為d/m/yyyy，任何一天的取值都要為當月的第一天，比如今天是2006年3月21號，我需要取2006年3月1號，取值後要和系統的格式相同，請問如何處理？謝謝!在纖等
B babibean Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #2 function FirstDayOfMonth(ADate: TDate): String; var Year, Month, Day: word; RDate:TDate; begin DecodeDate(ADate, Year, Month, Day); RDate := EncodeDate(Year, Month, 1); result := FormatDatetime('d/m/yyyy', RDate); end;
function FirstDayOfMonth(ADate: TDate): String; var Year, Month, Day: word; RDate:TDate; begin DecodeDate(ADate, Year, Month, Day); RDate := EncodeDate(Year, Month, 1); result := FormatDatetime('d/m/yyyy', RDate); end;
M moyear2004 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #3 在sql server中,資料存在資料庫中的格式為 yyyy-mm-dd ;個人認為只需將其Format即可: 若要取得當月的第一天 : var xDate : tdatetime; yy,mm,dd : char; begin DecodeDateTime(xDate,yy,mm,dd); Result := EncodeDateTime(yy,mm,1); end;
在sql server中,資料存在資料庫中的格式為 yyyy-mm-dd ;個人認為只需將其Format即可: 若要取得當月的第一天 : var xDate : tdatetime; yy,mm,dd : char; begin DecodeDateTime(xDate,yy,mm,dd); Result := EncodeDateTime(yy,mm,1); end;
