![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
Hola TheNew.
No está muy claro el planteo de lo que querés hacer, pero supongo que querrás validar los ingresos, de forma que no acepte fechas que no estén entre los días 15 y el máximo día del mes ingresado. Para correr el código siguiente deberás previamente complementar con ceros. Por ejemplo si ingresa la cadena: '2/2/2008' tendrás que llevarla a: '02/02/2008'. Esto se simplificaría si usaras TDate como argumento de la función... es más, sería sencillísimo si usaras por ejemplo; un TDateTimePicker para el ingreso de las fechas, puesto que sólo tendrías que verificar el día: if YearOf(Date) < 15 then 'Error' (YearOf está en la Unit DateUtils). Pero suponiendo que usamos un TEdit sería: Código:
{ SUPONE FECHA EN FORMATO : DD/MM/AAAA } function FechaEnRango(Fecha: string): Boolean; {$J+} const DiasMes: array[1..12] of Byte=(31,28,31,30,31,30,31,31,30,31,30,31); {$J-} var Dia,Mes,Anio: Integer; begin Result:= True; Anio:= StrToInt(Copy(Fecha,7,4)); Mes:= StrToInt(Copy(Fecha,4,2)); Dia:= StrToInt(Copy(Fecha,1,2)); // si el año es bisiesto agregar 1 día a enero if ((Anio mod 4 = 0)and(Anio mod 100 <> 0))or(Anio mod 400 = 0) then DiasMes[2]:= DiasMes[2] + 1; if (Dia < 15)or(Dia > DiasMes[Mes]) then Result:= False; end; Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
bucle para fechas de pagos | chino150 | Varios | 5 | 19-05-2008 15:01:28 |
Como Insertar por Procedimiento 10 o mas registros para un calendario de pagos? | IcebergDelphi | Firebird e Interbase | 1 | 20-05-2007 22:23:56 |
"Pagos por publicidad" | jhonny | Debates | 15 | 22-09-2005 02:10:20 |
Imprimir Pagos en Matriz de Punto y Papel Continuo ? | BlueSteel | Impresión | 0 | 28-04-2005 16:17:32 |
![]() |
|