Cita:
Empezado por elrayo76
Quería saber como se puede hacer para poner en un parámetro la fecha del día como valor por defecto si no cargan nada en el mismo. Lo que estoy haciendo es lo siguiente:
function GetDateTimeValue(aName: String; aDefault: TDateTime = Now): TDateTime;
El problema es que no se pueden poner cosas como *NOW* en el valor por defecto ya que no admite constantes (ese es el error que da al compilar). Entonces ¿como se puede hacer lo que comento?
Saludos,
El Rayo
|
Hola
Una idea, aunque debe haber algo mejor, seguramente los masters de por aquí pueden darte otras alternativas mejores.
Código Delphi
[-]
function GetDateTimeValue(aName: String; aDefault: TDateTime = 0): TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage(datetostr(GetDateTimeValue('Hola')));
showMessage(datetostr(GetDateTimeValue('Hola', strtoDateTime('09/02/2006'))));
end;
function TForm1.GetDateTimeValue(aName: String; aDefault: TDateTime): TDateTime;
begin
if aDefault = 0 then aDefault := Now;
result := ADefault;
end;
Saludos