Função: Validar Data ¹ - Códigos Delphi

Função: Validar Data ¹

// Testa se Uma String no Formato Data é Valida ou Não

function ValidDate(Day,Month,Year: Word): boolean; begin if (Year<1900) or (Year>2078) then ValidDate := false else case Month of 1,3,5,7,8,10,12: ValidDate := Day <= 31; 4,6,9,11: ValidDate := Day <= 30; 2: ValidDate := Day <= 28 + ord((Year mod 4)=0)*ord(Year<>1900) else ValidDate := false; end; end;