Q&A

  • FormatDatetime을 'Mar 1, 2001' 하고 싶습니다.
FormatDatetime('mmm d, 2001', strDate)

하면 '3월 1, 2001'로 보입니다.

strDate는 system의 date를 가져옵니다.

3  COMMENTS
  • Profile
    정성훈 2001.03.28 20:29
    il212 wrote:

    > FormatDatetime('mmm d, 2001', strDate)

    > 하면 '3월 1, 2001'로 보입니다.

    > strDate는 system의 date를 가져옵니다.



    저도 많이 찾아봤는데 그런건 없는듯 싶네요.

    윈도우가 한글이 아니라 영문판이라면 되겠죠.



    mm이나 dd 값을 계산해서 일일히 Sunday나 January 를 넣어주는 수밖에 없을듯 싶네요

    혹시나 다른 방법있으면 좀 알려주세요.

  • Profile
    il212 2001.03.28 20:44
    결국 말씀하신 방법대로 했습니다.

    상수를 정의해서 mm의 배열값을 가져왔어요.



    const

    ShortMonthName : array[1..12] of string = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

    var

    tDate : string;

    tMonth : Integer;

    begin

    tDate := DateToStr(Get_DateTime);

    tMonth := StrToInt(copy(tDate, 6, 2));

    pnDate.caption := ShortMonthName[tMonth] + ' ' + FormatDateTime('d, yyyy', Get_DateTime);

    end;



    정성훈 wrote:

    > il212 wrote:

    > > FormatDatetime('mmm d, 2001', strDate)

    > > 하면 '3월 1, 2001'로 보입니다.

    > > strDate는 system의 date를 가져옵니다.

    >

    > 저도 많이 찾아봤는데 그런건 없는듯 싶네요.

    > 윈도우가 한글이 아니라 영문판이라면 되겠죠.

    >

    > mm이나 dd 값을 계산해서 일일히 Sunday나 January 를 넣어주는 수밖에 없을듯 싶네요

    > 혹시나 다른 방법있으면 좀 알려주세요.

  • Profile
    최용일 2001.03.28 21:12
    안녕하세요. 최용일입니다.



    날짜/시간 포멧을 결정하는 전역변수중에 ShortMonthNames라는 넘이 있습니다. 이걸



    Jan, Feb, ... 이런식으로 정해주시면 원하시는 대로 나옵니다.



    const

    MonthName: array[1..12] of string =

    ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

    var

    strDate: TDateTime;

    Index: Integer;

    begin

    // 여러번 쓰신다면 아래는 폼의 OnCreate같은 곳에서 한번만 해주세요...

    for Index := 1 to 12 do

    ShortMonthNames[Index] := MonthName[Index];



    strDate := Now;

    FormatDatetime('mmm d, 2001', strDate)

    end;



    ^^ 항상 즐코하세요...



    il212 wrote:

    > 결국 말씀하신 방법대로 했습니다.

    > 상수를 정의해서 mm의 배열값을 가져왔어요.

    >

    > const

    > ShortMonthName : array[1..12] of string = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

    > var

    > tDate : string;

    > tMonth : Integer;

    > begin

    > tDate := DateToStr(Get_DateTime);

    > tMonth := StrToInt(copy(tDate, 6, 2));

    > pnDate.caption := ShortMonthName[tMonth] + ' ' + FormatDateTime('d, yyyy', Get_DateTime);

    > end;

    >

    > 정성훈 wrote:

    > > il212 wrote:

    > > > FormatDatetime('mmm d, 2001', strDate)

    > > > 하면 '3월 1, 2001'로 보입니다.

    > > > strDate는 system의 date를 가져옵니다.

    > >

    > > 저도 많이 찾아봤는데 그런건 없는듯 싶네요.

    > > 윈도우가 한글이 아니라 영문판이라면 되겠죠.

    > >

    > > mm이나 dd 값을 계산해서 일일히 Sunday나 January 를 넣어주는 수밖에 없을듯 싶네요

    > > 혹시나 다른 방법있으면 좀 알려주세요.