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;
Espero te pueda servir.
Saludos.