Ich hab mich mal von einem Tutorial auf Youtube
link inspirieren lassen und folgende Änderung eingebaut:
Delphi-Quellcode:
if (iCol = iDatum) then
begin
Data[iRow, iCol - i] := '=date(' + IntToStr(Jahr(AData.DataSet.Fields.Fields[iCol].AsDateTime)) + ',' +
IntToStr(Monat(AData.DataSet.Fields.Fields[iCol].AsDateTime)) + ',' +
IntToStr(Tag(AData.DataSet.Fields.Fields[iCol].AsDateTime)) + ')';
vobei Jahr(), Monat(), Tag() das Entsprechende zurückgibt.
mit Excel 2003 geht es schonmal, die anderen muß ich noch testen.
Edit: Geht doch nicht mit anderen Versionen. Eigentlich wäre ';' statt ',' richtig, aber das geht in keiner Version. Man ist das SCH...