close
تبلیغات در اینترنت

قالب وبلاگ

محاسبه طول عمر یک فرد - کد دلفی


درباره سايت درباره سايت
به نام آنکه جان را فکرت آموخت در این وبلاگ سعی می شود به صورت تخصصی به مباحث مربوط به مهندسی نرم افزار به خصوص برنامه نویسی کامپیوتری پرداخته شود. مدیر وبلاگ : حامد شیرزاد

موضوعات موضوعات

آموزش برنامه نویسی

دلفی ( Delphi )

پی اچ پی ( PHP )

سی شارپ ( #C )

برنامه نویسی عمومی

جاوا ( Java )

++C

اسمبلی

ASP .NET

VBasic

HTML

اینترنت و شبکه

سیسکو ( Cisco )

معرفی سایت

مفاهیم شبکه

سخت افزار شبکه

آموزش عمومی

زبان انگلیسی

ترفند

رجیستری

کارشناسی ارشد

طرحی وب

ریاضیات

برنامه های کاربردی

سخت افزار

کارشناسی نرم افزار

دانلود

نرم افزار

کتابخانه

کتاب

جزوه

سرگرمی

سخن بزرگان

داستان

طنز

دانستنیها

عکس

شعر

اخبار


آرشيو آرشيو

1395

1394

1391

1390


نويسندگان نويسندگان

حامد شیرزاد (431)

soften (0)


جستجوگر پيشرفته سايت




?
آخرين ارسال هاي انجمن
آخرين ارسال هاي انجمن


محاسبه طول عمر یک فرد - کد دلفی



function CalculateAge(Birthday, CurrentDate: TDate): Integer; 
var 
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; 
begin 
  DecodeDate(Birthday, Year, Month, Day); 
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); 
  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then 
  begin 
    Result := 0; 
  end 
  else 
  begin 
    Result := CurrentYear - Year; 
    if (Month > CurrentMonth) then 
      Dec(Result) 
    else 
    begin 
      if Month = CurrentMonth then 
        if (Day > CurrentDay) then 
          Dec(Result); 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Caption := Format('Your age is %d', [CalculateAge(StrToDate('01.03.1953'), Date)]); 
end;



برچسب ها : کد دلفی طول عمر delphi age code
ارسال شده در : پنجشنبه 15 دي 1390 - توسط : حامد شیرزاد
بازديد : 977 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]

مرتبط باموضوع :



نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتی

پيوند ها پيوند ها'

تبادل لينک تبادل لينک تبادل لينک تبادل لينک

  • آپلود عکس

    دانلود آهنگ جدید

    دانلود انیمیشن

    دانلود فیلم جدید

    دانلود سریال

    دانلود رایگان

    آنلاک آیفون

    خرید اپل آیدی معتبر

    خرید و فروش خودرو

    فروش خودرو

    خرید خودرو

    خرید لایک اینستاگرام

    افزایش فالوور اینستاگرام

    خرید فالوور اینستاگرام

    طراحی داخلی

    خرید گیفت کارت گوگل پلی

    مشاوره پایان نامه ارشد

    خرید سرور مجازی انگلیس

    خرید فیلتر شکن

    بهترین سایت مد و زیبایی

    پرورش بلدرچین

    رمضان سال 95

    اخبار فوتبال

    جی پی اس گارمین

    چاپ کاتالوگ و بروشور

    خرید جم کلش رویال

    دانلود آهنگ جدید

    نوین پی سی :: نوین ترین فروشگاه آنلاین در ایران












  • بک لينک بک لينک
    خرید گیفت کارت ارزان اسپاتیفای استیم
    خرید آنلاین گیفت کارت گوگل پلی با گیفتی دات کام
    خاک پوششی
    تور ارزان کیش لحظه آخری
    هتل های 5 ستاره کیش
    تور کیش از مشهد لحظه آخری
    تور کیش نوروز 95
    دیدنی های جزیره کیش
    بلیط کیش ارزان قیمت
    بلیط پرواز کیش
    خرید گیفت کارت آیتونز و گوگل پلی
    بزرگترین مرکز خرید و فروش گیفت کارت
    تور ارزان کیش نوروز 95