Ajuda com a data dbGrid

08/11/2021

Ol�, estou tendo fazer um verifica��o se nao existir data na coluna do dbgrid entao pegar ada atual, mais nao estou conseguindo, como resolver?
var
datasaida, dataentrada, dataagora: TDate;
dData: string;
begin
pFrxReport.Variables.Clear;

datasaida := StrToDate(DBGrid1.Columns.Items[1].Field.Text);
dataentrada := StrToDate(DBGrid1.Columns.Items[2].Field.Text);
dataagora := StrToDate(DateToStr(now));

if (DBGrid1.Columns.Items[2].Field.Text.Empty = ' ') then
begin
dData := FloatToStr(DaysBetween(datasaida, dataentrada));
end
else
begin
dData := FloatToStr(DaysBetween(datasaida, dataagora));
end;
pFrxReport.Variables['NovaData'] := QuotedStr(dData);
end;

Upmilk

Curtir t�pico + 0

Responder

Posts

08/11/2021

Emerson Nascimento

pode tentar algo assim:

var
	datasaida, dataentrada: TDate;
	sData: string;
begin
	pFrxReport.Variables.Clear;

	// obt�m a data de entrada. se estiver vazia, uso a data/hora atual
	if DBGrid1.Columns.Items[2].Field.IsEmpty then
		dataentrada := Now
	else
		dataentrada := DBGrid1.Columns.Items[2].Field.AsDateTime;

	// obt�m a data de sa�da. se estiver vazia, uso a data/hora atual
	if DBGrid1.Columns.Items[1].Field.IsEmpty then
		datasaida := Now
	else
		datasaida := DBGrid1.Columns.Items[1].Field.AsDateTime;

	// obt�m a diferen�a entre a data de entrada e a data de sa�da
	sData := FloatToStr(DaysBetween(datasaida, dataentrada));

	// passa o conte�do para a 'vari�vel'
	pFrxReport.Variables['NovaData'] := QuotedStr(sData);
end;

Responder

Gostei + 0

08/11/2021

Upmilk

pode tentar algo assim:

var
	datasaida, dataentrada: TDate;
	sData: string;
begin
	pFrxReport.Variables.Clear;

	// obt�m a data de entrada. se estiver vazia, uso a data/hora atual
	if DBGrid1.Columns.Items[2].Field.IsEmpty then
		dataentrada := Now
	else
		dataentrada := DBGrid1.Columns.Items[2].Field.AsDateTime;

	// obt�m a data de sa�da. se estiver vazia, uso a data/hora atual
	if DBGrid1.Columns.Items[1].Field.IsEmpty then
		datasaida := Now
	else
		datasaida := DBGrid1.Columns.Items[1].Field.AsDateTime;

	// obt�m a diferen�a entre a data de entrada e a data de sa�da
	sData := FloatToStr(DaysBetween(datasaida, dataentrada));

	// passa o conte�do para a ''vari�vel''
	pFrxReport.Variables[''NovaData''] := QuotedStr(sData);
end;

Aparece esse erro : is not a valid date.
Agora fique na duvida e erro e do Dgbrid ou FastReport nao esta recevendo Valor
quando o campo no dbgrid esta com data, funciona.

Responder

Gostei + 0

24/11/2021

Kauan Oliveira

Tente algo assim

datasaida := (DBGrid1.DataSource.DataSet.FieldByName(''seu_campo_data'').AsDateTime);

e a mesma coisa para as outras situa��es

Responder

Gostei + 0