如何把DateTimePicker里面的日期转化
比如是2003- 5-10 转化为030510?

解决方案 »

  1.   

    function ConvertTime(AStr: string): TTime;
    var
      H, N, S: string;
    begin
      H := copy(Astr, 1, 4);
      N := copy(AStr, 6, 2);
      S := copy(AStr, 9, 2);
      Result := strtoTime(Format('%s%s%s', [H, N, S]));
    end;
      

  2.   

    u2m(UpToMe):你怎么每次都比我跑的快呀
      

  3.   

    function ConvertTime(AStr: string): TDateTime;
    var
      H, N, S: string;
    begin
      H := copy(Astr, 1, 4);
      N := copy(AStr, 6, 2);
      S := copy(AStr, 9, 2);
      Result := strtoTime(Format('%s%s%s', [H, N, S]));
    end;var 
      ss:TDateTime;
    ss:=ConvertTime('2003- 5-10');
      

  4.   

    Datetimepicker.format:=yyMMdd;
    如果需要的是string的话则
    datetostr(datetimepicker.date);
      

  5.   

    s := FormatDateTime('yymmdd', date);