Compilar una Unidad

[Esau]

Hola Foro , como estan , hace buen tiempo que no ingresaba , bueno , tengo una pequeña duda, creo que pueden ayudarme...
miren Uso delphi 7.0, la ves pasada estaba buscando una funcion que me devuelva el Año actual, y encontre en la unit SysUtils la funcion (function CurrentYear: Word en la linea 11296 de dicha unidad, bueno el motivo de la consulta es la siguiente... yo quiero implementar la funcion CurrentMonth, en la misma unidad, para que esten disponobles en todas mis aplicaciones pero al momento de compilar , me arroya un error que dice , no se encontro la funcion CurrentMonth o algo por el estilo...
el punto es como puedo volver a recompilar la unidad SysUtils , para que mi funcion que he agregado este disponible ahora en esta unidad...
a la funcion CurrentMonth es la siguiente, pruebenla
function CurrentMonth: Word;
{$IFDEF MSWINDOWS}
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTime.wMonth;
end;
{$ENDIF}
{$IFDEF LINUX}
var
T: TTime_T;
UT: TUnixTime;
begin
__time(@T);
localtime_r(@T, UT);
Result := UT.tm_Month
end;
{$ENDIF}


gracias por las respuestas...

[jachguate]

Hola.

No es recomendable cambiar el código de las unidades del propio delphi. De hecho, según recuerdo, la licencia lo prohibe.

Por otro lado, en delphi 7 tenes la unidad DateUtils, con la que podes hacer:

MonthOf(now);

que dará el resultado que buscas.

Si de todas formas decidis hacer tu función, o si te sirve en otra ocasión, es mejor que hagas tu propia unidad o unidades, que luego simplemente añadis al uses para que esté disponible donde querras.

Hasta luego.

[jachguate]

Antes que se me adelante román... muevo el hilo al foro de varios, que no veo sentido para que esté en OOP.

Saludos.

[Esau]

Bueno no sabia que no se podia modificar , pero bueno la opcion de una unit es mejor ...
probare la opcion que me das..

gracias