> Zitat von Carsten Bager <[EMAIL PROTECTED]>: > > > When I do this > > > > Free Pascal Compiler version 2.2.2 [2008/07/29] for i386 > > Which OS? Linux
> > > --------------------- > > Program tt; > > uses dos, > > sysutils; > > > > function strPackTime(t:longWord):shortstring; > > var > > dt:Datetime; > > begin > > UnpackTime(t,dt); > > strPackTime:=intToStr(dt.day)+'/'+ > > intToStr(dt.month)+'-'+ > > intToStr(dt.year)+ > > intToStr(dt.hour)+':'+ > > intToStr(dt.min)+':'+ > > intToStr(dt.sec)+' '; > > end; > > > > Begin > > WriteLn(strPackTime(DateTimeToFileDate(now))); > > > > WriteLn(DateTimeToStr(FileDateToDateTime(DateTimeToFileDate(now)))) > > ; > > End. > > --------------------------------- > > > > I get this result > > > > 9/6-20160:28:22 > > 11-9-08 13:39:55 > > > > What am I doing wrong. > > > Mattias > > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
