Ms sql server kullanıyorum kayıt esnasında tarih alanına null olarak kaydedilen değer excele gönderince 01.01.1900 şeklinde yansıyor bunu excel hücresinde boş olarak nasıl gösterebilirim. Kullandığım kod aşağıdaki gibi şimdiden teşekkür ederim.
Kod: Tümünü seç
var
v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
i,a :integer;
z : string;
mak:AnsiString;
begin
Application.ProcessMessages;
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.add;//yeni calisma kitabini ekle
sayfa:=v.workbooks[1].worksheets[1];
Qr_Peronel_lis.First;
Application.ProcessMessages;
sayfa.cells[4,1]:='Sicil';
sayfa.cells[4,2]:='T.C.Kimlik';
sayfa.cells[4,3]:='Adı Soyadı';
sayfa.cells[4,4]:='İşe Giriş';
sayfa.cells[4,5]:='Sözleşme Bitiş Tarihi';
sayfa.cells[4,6]:='İşten Çıkış';
Application.ProcessMessages;
i:=4;
while not Qr_Peronel_lis.Eof do
begin
i:=i+1; Application.ProcessMessages;
sayfa.cells[i,1]:=Qr_Peronel_lisSICIL.Asstring;
sayfa.cells[i,2]:=Qr_Peronel_lisTCKIMLIK.AsString;
sayfa.cells[i,3]:=Qr_Peronel_lisADISOYADI.AsString;
sayfa.cells[i,4]:=Qr_Peronel_lisISEGIRTAR.Value;
sayfa.cells[i,5]:=Qr_Peronel_lisSOZLESMEBITIS.Value;
sayfa.cells[i,6]:=Qr_Peronel_lisCIKISTARIHI.Value;
Qr_Peronel_lis.next;
sayfa.Columns[1].Columns.Autofit;
sayfa.Columns[2].Columns.Autofit;
sayfa.Columns[3].Columns.Autofit;
sayfa.Columns[4].Columns.Autofit;
sayfa.Columns[5].Columns.Autofit;
sayfa.Columns[6].Columns.Autofit;
end;
v.visible:=true;
Qr_Peronel_lis.First;
v.Quit;
end;