Data/hora

[Guest - Atentado -]

Olá!

Baixei um programa e estou bulinando, porém no meu relatório não consigo mudar a data para a data atual o que posso fazer????

Eis o cód da unt:

unit fCarne;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

DBTables, Db, QuickRpt, ExtCtrls, Qrctrls;

type

TfrmCarne = class(TForm)

qrp1: TQuickRep;

DetailBand1: TQRBand;

dtsCarne: TDataSource;

QryCarne: TQuery;

QRShape1: TQRShape;

QRDBText1: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRShape3: TQRShape;

QRShape2: TQRShape;

QRLabel3: TQRLabel;

QRDBText2: TQRDBText;

QRLabel4: TQRLabel;

QRDBText3: TQRDBText;

QRLabel5: TQRLabel;

QRDBText4: TQRDBText;

QRShape4: TQRShape;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRShape5: TQRShape;

QRLabel8: TQRLabel;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel9: TQRLabel;

QRDBText7: TQRDBText;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRDBText8: TQRDBText;

QRLabel12: TQRLabel;

QRShape6: TQRShape;

PageFooterBand1: TQRBand;

QRSysData1: TQRSysData;

QRLabel15: TQRLabel;

QRLabel16: TQRLabel;

QRShape8: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmCarne: TfrmCarne;

implementation

Uses fMensal;

{$R *.DFM}

end.

[fernando_vip]

Olá amigo!!!!

porque você não tenta isso:

procedure CopyFileDate(const Source, Dest: String);

var

SourceHand, DestHand: word;

begin

SourceHand := FileOpen(Source, fmOutput);

DestHand := FileOpen(Dest, fmInput);

FileSetDate(DestHand, FileGetDate(SourceHand));

FileClose(SourceHand);

FileClose(DestHand);

end;