fecha en label

[trikis1]

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

[dec]

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.

[trikis1]

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

[trikis1]

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

[trikis1]

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.

[Caral]

Hola

procedure TForm1.Button1Click(Sender: TObject);
var
Date: TDate;
begin
label1.Caption:= DateToStr(Date);
end;
Saludos

[marcoszorrilla]

También puedes probar esto:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=FormatDateTime('''hoy es'' dddd dd ''de'' mmmm ''de'' yyyy',Date);
end;

Un Saludo.

[trikis1]

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

[marcoszorrilla]

En mi respuesta anterior lo tienes.

Si solamente quieres el día:

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dddd',Date)
end;
Un Saludo.

[Caral]

Hola
Un poco mas:

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

[trikis1]

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