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...