لمن لديه حل لمشكلة التعامل مع حقل من نوع Date و حقل من Time

السلام عليكم

كيف يمكنني إظهار محتوى الحقل في QuickRep فارغاً

بالنسبة للتاريخ فهو عندما يكون الحقل فارغ يظهر في QRLabel1

31/12/1899

فوضعت له الكود الذي يحمل اللون الأحمر حتى يظهر مكانه فارغ في QRLabel1

ونجحت العملية

وبالنسبة للساعة فحاولت بكل الطرق التي خطرت لي على بالي ولم اجد لها حل

فماذا يجب علي فعله لحقل الساعة حتى لا يطهر في QRLabel2 بهذا الشكل 00:00

أنظر إلى الكود

procedure TForm10.DetailBand2BeforePrint(Sender: TQRCustomBand; 
  var PrintBand: Boolean); 
  var d1,h1:TDateTime; 
begin 
  with DM_1 do begin 
	Table1.First; 
	while not Table1.Eof do begin 
	if (Table1NU.Value=1) then h1:=Table1DT_DEP.Value; 
	if (Table1NU.value=1) then d1:=Table1HR_DEP.Value

لظهور QRLabel1

المتعلقة بحقل التاريخ فارغة في حالة ما إذا كان الحقل فارغ

وبدلا من أن يخرج لي (31/12/1899) يظهر الفراغ

QRLabel1.Caption:=formatDateTime('yyyy/mm/dd',h1); 
   if h1=00 then QRLabel1.Caption:='';

لظهور QRLabel2

المتعلقة بحقل الساعة فارغة بدلاً من ان تظهر لي بشكل 00:00

لقد نجحت العملية لكن المشكلة في حالة ما إذا كان الحقل غير فارغ ويحمل قيمة 00:00

في هذه الحالة يظهر QRLabel2 فارغ ومن المفروض في هذه الحالة لا بد من ظهور القيمة 00:00

وضعت هذا الكود

QRLabel2.Caption:=formatDateTime('HH:MM',d1); 
  if d1=00 then QRLabel2.Caption:=''; 

 Table1.Next; 
	End; 
  End; 
End;