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

Grupo de Teaming del ClubDelphi

 
 
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: 2.009
Poder: 20
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
 


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 03:16:43.


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
Copyright 1996-2007 Club Delphi