BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: dusit ที่ ธันวาคม 09, 2009, 10:55:27 AM

หัวข้อ: รบกวน สอบถามเรื่อง function dayspermonth ครับ อ.
เริ่มหัวข้อโดย: dusit ที่ ธันวาคม 09, 2009, 10:55:27 AM

dayspermonth(strtoint(formatdatetime('yyyy', da)),
ไม่ทราบว่า uses ตัวไหน มี function อยู่ครับ

ขอบคุณครับ

หัวข้อ: Re: รบกวน สอบถามเรื่อง function dayspermonth ครับ อ.
เริ่มหัวข้อโดย: armds ที่ ธันวาคม 09, 2009, 11:01:16 AM

ลองดูครับ

function DaysPerMonth(AYear, AMonth: Integer): Integer;
const
  DaysInMonth: array[1..12] of Integer =
    (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
  Result := DaysInMonth[AMonth];
  if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

หัวข้อ: Re: รบกวน สอบถามเรื่อง function dayspermonth ครับ อ.
เริ่มหัวข้อโดย: manoi ที่ ธันวาคม 09, 2009, 12:33:04 PM

jvjclutils

หัวข้อ: Re: รบกวน สอบถามเรื่อง function dayspermonth ครับ อ.
เริ่มหัวข้อโดย: dusit ที่ ธันวาคม 09, 2009, 12:52:55 PM

ขอบคุณ อ. ทั้ง 2 ท่านครับ
ใช้ได้แล้ว

หัวข้อ: Re: รบกวน สอบถามเรื่อง function dayspermonth ครับ อ.
เริ่มหัวข้อโดย: ittipol ที่ กรกฎาคม 13, 2012, 10:55:14 AM

jvjclutils
หาได้จากไหนครับ
ขอบคุณครับ