Para el tema de la rejilla, es copiado literalmente de la ayuda de delphi, adaptandolo te puede servir:
Código:
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
Cita:
|
Empezado por juanchi
y al seleccionar uno que los pase al listview como un tiempo decreciente.
|
No sé si lo he entendido. Creo que quieres restarle X minutos a una hora determinada. Si dispones de las Rusas (
RxLib) puedes usar la funcion que posteé antes, pasandole un nº negativo. Si no dispones de ella, tendrías que hacer un cálculo. Sabiendo que una fecha es un nº real, 32723,05671 y que 1 unidad corresponde a 1 dia de tiempo, puedes hacer tu mismo el cálculo para saber: 30 minutos cuantos dias son, y restar ese valor directamente a una fecha dada.
Ahora te toca pensar a ti un poquito
Te aconsejo que te pares a estudiar un poquito el tema de las fechas en delphi, con 10 minutos peleandote, te aclarará muchas dudas.
ShowMessage(Formatdatetime('dd/mm/yyyy hh:nn:ss', now - MiValorDouble)
sodulaS
