Sziasztok,

10 év után kezdtem el ismét pascallal / delphivel foglalkozni. Egyszerű munkaidő nyilvántartó programot kezdtem írni, ami annyit csinál, hogy az ÉRKEZÉS gombra kattintva feljegyzi az adott dátumot és időt egy fájlba, majd a Távozás gombra kattintva ez ismét megtörténik, majd másnap megismétlődik.

A fájl jelenleg txt, megfelelő tag-ekkel xml-t fogok belőle csinálni, amit egy crontab havonta egyszer lemásol az USER lokális gépéről, majd a böngészőben jelenítek meg az intraneten.

A dolog kafán megy is. az egyetlen problémám az, hogy ezt kapom vissza a fájlomban dátum/időként: 2.07109505519193E-0307

Hát passz. Próbálkoztam az átalakításokkal, de nem világos a dolog. Segítséget kérek.

Itt a kód, ami menti az adatokat.

procedure TForm1.Button3Click(Sender: TObject);
var
Afile:textfile;
Bfile:TDateTime;
megjegyzes:string;
//myHour, myMin, mySec, myMilli : Word;

begin

AssignFile(Afile,'notes.txt') ;
try
Append(Afile) ;

megjegyzes:=memo3.Lines.Text;
//LongDateFormat := 'dddd, dd.mmmm.yyyy';
Writeln(Afile,Bfile);

finally
CloseFile(AFile) ;
end;
end;