06-04-2012, 11:30 PM
وعليكم السلام ورحمة الله وبركاته
بالتوفيق
كود :
function DateTime: string;
var
m: string;
u: string[1];
begin
Result := '';
m := FormatDateTime('mmm', Now);
m := Copy(m, 0, 3);
u := UpperCase(m);
Delete(m, 1, 1);
insert(u, m,1);
Result := m + FormatDateTime(' d yyyy hh:mmAM/PM', Now);
end;