Por ejemplo un reloj en el formulario con un timer en un intervalo de 1000
Código Delphi
[-]
procedure Tform1.tmrRelojTimer(Sender: TObject);
var
strFecha : string;
strHora: string;
begin
DateTimeToString(strFecha, 'dddd d, mmmm, yyyy', Now);
DateTimeToString(strHora, 'hh:nn:ss', Now);
StatusBar1.Panels[0].Text := strFecha + ' ' + strHora;
end;
esto resultaria asi p.e.:
Cita:
martes 1, Julio, 2008 18:50:05
|
Por cierto ¿que hace esta pregunta en el foro de MS SQLServer? deberia de ir en varios.