fecha en label
 

Hola buenas he puesto un calendario en una agendilla que estoy haciendo, eso muy facil, na mas q ponerla, y lo que pretendo seguro q es muy facil, pero no lo consigo, advierto llevo poco tiempo con esto,
La pregunta es como pongo la fecha del dia actual, y que me vaya pasando claro, en una label x ej.
saludos y gracias por adelantado

Hola,

La fecha actual la obtienes con la variable "Date". La fecha y la hora con la variable "DateTime". Ambas se declaran en la unidad "SysUtils.pas". Luego cuentas con funciones útiles como "TimeToStr", "DateTimeToStr", etc. En la unidad "DateUtils.pas" cuentas tambén con funciones y procedimientos de utilidad.

Todo lo tengo puesto o eso creo, por lo menos el sysutils, pero no hay forma, si que he conseguido hacer el reloj q vaya pasando, con timetostr (now), pero con la fecha, pongo datetostr(now) y me dice tururu. jeejejje

vale ok con datetimetostr si me pone todo, la fecha y la hora, pero no solo la fecha

Bueeeeenooooo, vale retiro lo dixo, ahora despues de tropecientas veces, si que ha aparecido solo la fecha y eso que ya lo había intentado, no se xq ahora despues si. Bueno el caso es que sale, bueno saludos y muxas gracias.

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Date: TDate;
begin
   label1.Caption:= DateToStr(Date);
end;

Saludos

También puedes probar esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.Caption:=FormatDateTime('''hoy es'' dddd dd ''de'' mmmm ''de'' yyyy',Date);
end

;

Un Saludo.

Ok muchas gracias, pero tambien se puede poner el día de la semana??? vamos a ir complicandolo mas, jejeje

En mi respuesta anterior lo tienes.

Si solamente quieres el día:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dddd',Date)
end;

Un Saludo.

Hola
Un poco mas:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Date: TDate;
begin
   Date:= now;
   label1.Caption:=FormatDateTime('''hoy es'' dddd dd ''de'' mmmm ''de'' yyyy',Date);
end;

Saludos

Ok, muchisimas gracias a todos, y saludos, hasta mi proxima inquietud, jejejeje, xao.