Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   comparar fecha de datetimepicker con fecha fija (https://www.clubdelphi.com/foros/showthread.php?t=70747)

gonza_619 09-11-2010 01:33:15

comparar fecha de datetimepicker con fecha fija
 
hola a todos, bueno mi problemas es que necesito que al seleccionar una fecha de un datetimepicker, luego comparar

if datetimepicker.date > 10/mes/año

bueno en este caso solo quiero verificar solo el DIA de todos los meses, que si es mayor al 10 entonces haga tal cosa. el problema es que el dia debe ser fijo

tenfria que estraer el dia del datetimepicker y compararlo con '10' es decir

if datetimepicker.date>10 then ....

pero nose como comparar solo con el dia del datetimepicker, como deberia ser?

roman 09-11-2010 02:12:11

En la unidad DateUtils existe la función DayOf que te devuelve lo que quieres.

// Saludos

gonza_619 09-11-2010 02:15:45

buenisimo ya lo solucione

procedure TForm4.DateTimePicker1CloseUp(Sender: TObject);
var dia,mes,ano:tdatetime;
begin
fecha:=datetimepicker1.date;
dia:=dayof(fecha);
mes:=monthof(fecha);
ano:=yearof(fecha);
if (dia<=10) or (dia>25)then
begin
showmessage('hola');

bien ahora al cumplirse esta condicion en u tedit, se almacene la fecha con el dia 10 del mes actual y año actual, entonces probe

if (dia<=10) or (dia>25)then
begin
showmessage('hola');
edit10.Text:='10/mes/ano';

pero me sale tal como esta entre comillas. cuando tendria que salir 10/11/2010, como podria hacer?

bueno lo probe y me sale 31/12/1989, no entiedo porq si en las variables asigne el mes y año actual

edit10.Text:=datetostr(10/mes/ano)


La franja horaria es GMT +2. Ahora son las 21:19:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi