Código Delphi [-] var mes, dia, ano :Word; a:string; ad:double; begin ad:= Now-DayOf(now)+1;
var mes, dia, ano :Word; a:string; ad:double; begin ad:= Now-DayOf(now)+1;