Datum nach Excel schreiben

[Rainer Wolff]

Mal wieder ein Phänomen, das ich mir nicht erklären kann. Eine Lösung habe ich gefunden, aber ich bewundere das Problem.

Ich schreibe ein paar Daten aus meiner App nach Excel, darunter ein Datumsfeld. Und in diesem Datumsfeld landet Unfug, bzw. das Datum Null (00.01.1900)
Die wesentlichen Zeilen sind unten, ich kann gerne noch die gesamte Prozedur posten.

Wenn ich über die Zwischenvariable 'heute' gehe, dann kommt das Datum richtig.

ABER: den 1:1 identischen Quellcode habe ich in eine kleinen Testapp programmiert, da geht alles ohne Zwischenvariable.

Die Excel-Tabelle ist in beiden Varianten die selbe.

Code:

     var heute:=now;
     Worksheet1.Cells[LastRow+1, 5].Value2 := now;
    Worksheet1.Cells[LastRow+1, 5].NumberFormat := 'TT.MM.JJJJ';

btw: habe die Delphi-Version nicht gesetzt, V 10.4 ist am Start

[peterbelow]

Hast Du mal versucht zuerst das NumberFormat und erst danach den Value zu setzen?