Hola, a ver si me podeis echar una mano.
Código Delphi
[-]
var
tmpFecha : TDateTime;
tmpHora : TDateTime;
strSqlTabla : string;
Y, M, D : word;
H, N, S, MS : word;
begin
DecodeDate( Now, Y, M, D );
D := 21;
M := 8;
Y := 2004;
DecodeTime( Now, H, N, S, MS );
tmpFecha := EncodeDate( Y, M, D );
H := H - 6;
if( H<0 ) then begin
H := 24 - H;
tmpFecha := tmpFecha - 1;
end;
tmpHora := EncodeTime( H, 0, 0, 0 );
Supongo que si a las tres de la madrugada le resto seis ¿dará negativo?
Gracias a todos