program Project1;
uses
fpspreadsheet, fpsutils, fpstypes, xlsxooxml;
var
book: TsWorkbook;
sheet: TsWorksheet;
fmt: TsCellFormat;
fmtIndex: Integer;
begin
book := TsWorkbook.Create;
try
sheet := book.AddWorksheet('Test');
// Create a format record for yellow background and specific date format
InitFormatRecord(fmt);
fmt.NumberFormatIndex := book.AddNumberFormat('yyyy-mm-dd');
fmt.SetBackgroundColor(scYellow);
fmt.UsedformattingFields := fmt.UsedFormattingFields + [uffNumberFormat, uffBackground];
// Store format record in workbook
fmtIndex := book.AddCellFormat(fmt);
// Assign format record to entire column 1 of the worksheet
sheet.WriteColFormatIndex(1, fmtIndex);
// Add numbers and dates to the pre-formatted column
sheet.WriteNumber(0, 1, 40000);
sheet.WriteDateTime(1, 1, 40000);
// Save workbook to file
book.WriteToFile('test.xlsx', true);
finally
book.Free;
end;
end.