Import Budgets

Function: AnalyzeData:

Local variables:
Delete these two:
TestDate@1005 : Date;
TimePos@1009 : Integer;

Add this one:
TestDateTime@1005 : DateTime;

Code before:
ExcelBuf."Row No." = HeaderRowNo:
BEGIN
  TempExcelBuf := ExcelBuf;
  TimePos := STRPOS(TempExcelBuf."Cell Value as Text",' 00:00'); // Time part - only on Service Tier
  IF TimePos = STRLEN(TempExcelBuf."Cell Value as Text") - 5 THEN
    TempExcelBuf."Cell Value as Text" := COPYSTR(TempExcelBuf."Cell Value as Text",1,TimePos - 1);
  CASE TRUE OF
  TempDim.FIND('-'):

Code after:
ExcelBuf."Row No." = HeaderRowNo:
BEGIN
  TempExcelBuf := ExcelBuf;
  CASE TRUE OF
    TempDim.FIND('-'):

Code before:
EVALUATE(TestDate,TempExcelBuf."Cell Value as Text"):
BEGIN
  TempExcelBuf.Comment := Text014;
  TempExcelBuf.INSERT;
END;

Code after:
EVALUATE(TestDateTime,TempExcelBuf."Cell Value as Text"):
BEGIN
  TempExcelBuf."Cell Value as Text" := FORMAT(DT2DATE(TestDateTime));
  TempExcelBuf.Comment := Text014;
  TempExcelBuf.INSERT;
END;