[GerTorresM]

Código Delphi [-]
  Hoja.Cells[i,5].NumberFormat:= 'DD/MM/YYYY';
  
  for j := 5 to 22 do
    Hoja.Cells[i,j].NumberFormat := '#,##0';