Q&A

  • String를 TDateTime로 변한하기?
a, b : String;
begin
  a := '19990213';
  a := Copy(a,1,4) + '-'+ Copy(a,5,2) + '-' + Copy(a,7,2);
  b := FormatDateTime('yy-mm-dd', StrtoDateTime(a));

위와 같이 '19990213'을 DateTime형태로 바꾸려고 하는데
위의 방법말고 다른 방법은 없나요?
그리고 DateTimePicker에서 특정일을 표시하려면 어떻게 해야하죠
색깔을 지정해서요.아니면 그냥 표시하는 방법이라도요..
여기저기 찾아보고 그러는데 잘 모르겠네요.
답변기다리겠습니다.

1  COMMENTS
  • Profile
    박준호 2003.05.16 01:35

    StrToDateTime 이 있습니다. 아래는 Delphi Help 에 있는 예제입니다.
    저도 초보라서 두번째는 잘 모르겠네여.. ㅠ.ㅠ 즐프하세여..

    procedure TForm1.Button1Click(Sender: TObject);

    var
      ADateAndTime: TDateTime;
    begin
      ADateAndTime := StrToDateTime(Edit1.Text);
      Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;
    end;