Zitat von
heiopei:
da ich in letzter zeit nicht wirklich viel zu tun hatte, hab ich einfach mal zur "optimierung" eine eigene datumsfunktionen-
unit geschrieben, wobei ich den größten teil aus der sysutils übernommen habe und neuzusammengesetzt habe
Goldene Programmierer Regel:
Niemals an VCL Units rumpfuschen oder Ersatz-Units herstellen nur um ein paar Bytes zu optimieren !!!
Der Datumstyp von Delphi ist TDateTime (=Double) nicht Integer
Delphi-Quellcode:
//diese prozedur berechnet aus dem datum "date" das jahr, den monat und den tag
procedure DecodeDate(date: Integer; var Year, Month, Day: Word);
// *******