Hallar el siglo de una fecha
Artículo por Club Developers · 31 diciembre 2005
2358 vistas
Si nos interesa saber el siglo de una determinada fecha sólo tendremos que hacer una llamada a la siguiente función
function SigloDeFecha(const Fecha: TDateTime): Integer;
var
D,M,A: Word;
begin
DecodeDate(Fecha, A, M, D);
Result := (A div 100) + (A div Abs(A));
end;
Buena parte de estas FAQs han sido producidas por los miembros de
Developpez.com (Copyright © 2000-2016), traducidas por los miembros de
ClubDevelopers (Copyright © 2004-2009) y actualizadas por los miembros de
Delphiaccess (Copyright © 2009-2016). No se puede realizar ninguna reproducción, incluso parcial, de estas FAQs y el conjunto de su contenido (textos, documentos e imágenes) sin la autorización expresa de los miembros de
DELPHIACCESS.
