Q&A

  • 월을 구하는 함수를 만들려고 하는데요~
스트링으로 월필드를 잡았구요...
예) 2000.01


s -- 월
i  -- 더할 월

function (s:string;i:integer):string;
begin

  i 값만큼 월을 더하는 함수는 없나요...
  없으면...
  어떤방식으로 해야 쉽게 구할지 좀...

  제가 하면 완전 노가다 코딩이 될꺼 같아서요...

  고수님들 부탁좀

end;
이 게시물을
2  COMMENTS
  • Profile
    gudwhrla • 2002.02.26 01:32
    IncMonth 함수가 있습니다.

    function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;

    예>
    var
       DateTime:TDateTime
    begin
       DateTime := IncMonth(now,2):
       DateTime := IncMonth(now,-2):
    end;



  • Profile
    김진석 • 2002.02.26 01:41

    감사합니다...답을 찾았습니다....혼자 하다가...핼프도 열심히 뒤적뒤적하구요
    관심을 보여주셔서 감사합니다.

    function amonth_add(s:string;i:integer):string;
    var dd : TDATE;
        ff : string;
    begin
      Result := s;
      if i > 0 then
      begin
        s := copy(s,1,4)+'-'+copy(s,6,2)+'-01';
        dd := StrToDate(s);
        ff := FormatDateTime('YYYY.MM',IncMonth(dd,i-1));
        Result := FF;
      end;
    end;

    이렇게 하니깐 되네요.....감사요....^^*
←First Page
1115 1116 1117 1118 1119 1120 1121 1122 1123 1124
Last Page→
한델 로그인 하기