Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2017
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 1.739
Poder: 13
oscarac Va por buen camino
Error en DateTimePicker

buenas tardes
tengo esta rutina
Código Delphi [-]
Function Establecerfechas (var dtInicio:TDate; var dtFinal:TDate; mInicial :Integer):Boolean;
Var t_dia, t_mes, t_ano : String; t_mes1 :Integer;
begin
  if mInicial = 0 then
    t_mes := dmGlobal.g_Mes
  else
    t_mes := Llenar(IntToStr(mInicial),2);

  t_dia := '01';
  t_ano := Copy (dmGlobal.g_Periodo,1,4);
  dtInicio := StrToDate(t_dia + '/' + t_mes + '/' + t_ano);

  t_dia := '01';
  t_mes1 := StrToInt(dmGlobal.g_Mes) + 1;

  If dmGlobal.g_Mes <= '11' then
   dtFinal := Trunc(StrToDate(t_dia + '/' + IntToStr(t_mes1) + '/' + t_ano) -1)
  else
   dtFinal := Trunc(StrToDate( '31/12/' + Copy(dmGlobal.g_periodo,1,4)));

Result := True;
End;

Donde:
dmGlobal.g_MES = variable publica que me guarda el mes del año que estoy procesando
Llenar(IntToStr(mInicial),2) // Llena de ceros Osea de '1' pasa a ser '01'
dmGlobal.g_periodo = variable publica que tiene el año y mes en proceso ejemplo '200801' Año 2018 Mes Enero
para no hacerles el cuento largo lo que hace la rutina es basicamente encontrar el primer dia del mes y el ultimo dia del mes

Uso TDateTimePicker
y en algun momento invoco a la rutina asi

Código Delphi [-]
Var dtInicio , dtFin : TDate;
begin
  Establecerfechas(dtinicio, dtFin, 0);
  dtFechaVoucher.MinDate := dtInicio;
  dtFechaVoucher.MaxDate := dtFin;

pero cuando quiero cambiar la fecha me aparece este mensaje :

Cita:
Failed to Set Calendar date or time
solo sucede cuando se trata de establecer la fecha minima y maxima, en los demas casos no hay problema
__________________
Dulce Regalo que Satanas manda para mi.....

Última edición por oscarac fecha: 20-05-2017 a las 01:01:23.
Responder Con Cita
  #2  
Antiguo 20-05-2017
Avatar de Caminante
Caminante Caminante is offline
Miembro
 
Registrado: oct 2010
Ubicación: Lima - Peru
Posts: 263
Poder: 8
Caminante Va camino a la fama
Hola

Si solo es encontrar el primer y ultimo dia del mes de una fecha dada yo hago esto:

Código Delphi [-]
var
  Finicio,FFinal,Fecha:TDate;
begin
  Fecha:=date;
  finicio:=encodedate(YearOf(fecha),MonthOf(fecha),1);
  ffinal:=encodedate(yearof(fecha),MonthOf(fecha),DaysInMonth(fecha));
  showmessage(datetostr(fecha) +#13 +DateToStr(finicio) + #13+ datetostr(ffinal))
end;

Debes incluir la unidad dateutils.

Espero te sea util

Saludos
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar.
Antonio Machado
Responder Con Cita
  #3  
Antiguo 21-05-2017
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 1.739
Poder: 13
oscarac Va por buen camino
Voy a probar
Gracias
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al poner la hora 00:00:00 de un DateTimePicker ungrande87 Varios 7 14-12-2012 13:53:35
Error con DateTimePicker Vlady OOP 6 03-02-2009 18:26:34
Error(Date exceeds maximum ) con DateTimePicker de minDate y maxdate thelibmx Varios 2 01-11-2007 01:07:17
datetimepicker cmena Varios 4 19-03-2005 16:52:00
Dia en DateTimePicker nicocer Varios 2 31-07-2004 15:56:49


La franja horaria es GMT +2. Ahora son las 13:10:27.


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