StrToDateDef函数失效

DataModules/ReportMemoryDm/rmGridHeaderDm.pas

@@ -36,6 +36,8 @@ uses ProjectProperty;
 
 function TrmGridHeaderData.AssginData(
   AProjectData: TProjectData): TDataSet;
+var
+  sgs: TStringList;
 begin
   cdsGridHeader.Active := True;
   cdsGridHeader.EmptyDataSet;
@@ -52,8 +54,15 @@ begin
   cdsGridHeaderDealType.AsString := AProjectData.Projproperties.DealType;
   cdsGridHeaderPhaseStr.AsString := Format('%.2d', [AProjectData.PhaseIndex]);
   cdsGridHeaderCurTime.AsString := FormatDateTime('yyyymm', Now);
-  cdsGridHeaderDeadlineFormat.AsString := FormatDateTime('yyyymm',
-    StrToDateDef(AProjectData.ProjProperties.Deadline, Now));
+  sgs := TStringList.Create;
+  try
+    sgs.Delimiter := '-';
+    sgs.DelimitedText := AProjectData.ProjProperties.Deadline;
+    if (sgs.Count = 3) then
+      cdsGridHeaderDeadlineFormat.AsString := sgs.Strings[0] + sgs.Strings[1];
+  finally
+    sgs.free;
+  end;
   cdsGridHeader.Post;
   Result := cdsGridHeader;
 end;