डेल्फी प्रोग्रामिंग: दिनांक / समय दिनचर्या

दो टीडीटाइमर मानों की तुलना करता है ("कम", "बराबर" या "अधिक")। यदि दोनों मान एक ही दिन "गिरते" हैं, तो समय भाग को अनदेखा करें।

दो टीडीटाइमर मानों की तुलना करता है ("कम", "बराबर" या "अधिक")।

घोषणा:
प्रकार TValueRelationship = -1..1
समारोह CompareDateTime (स्थिरांक ADate, BDate: TDateTime): TValueRelationship

विवरण:
दो टीडीटाइमर मानों की तुलना करता है ("कम", "बराबर" या "अधिक")।

TValueRelationship दो मूल्यों के बीच संबंध का प्रतिनिधित्व करता है। तीन TValueRelationship मूल्यों में से प्रत्येक में एक "पसंद" प्रतीकात्मक स्थिर है:
-1 [लेसोथानवेल्यू] पहला मूल्य दूसरे मूल्य से कम है।
0 [इक्वलवैल्यू] दो मूल्य समान हैं।
1 [ग्रेटरनथाल्यू] पहला मूल्य दूसरे मूल्य से अधिक है।
तुलना परिणाम:

लेडथनवेल्यू यदि एडेट बीडेट से पहले है।
समतुल्य यदि ADate और BDate दोनों के दिनांक और समय भाग समान हैं
ग्रेटर तेनावल्यू यदि एडेट बाद में बीडेट से है।

उदाहरण:

var दिसोमेंट, FutureMoment: TDateTime; दिसोमेंट: = अब; FutureMoment: = IncDay (ThisMoment, 6); // 6 दिन जोड़ता है। // तुलनाडाइमटाइम (यह भविष्य, FutureMoment) LessThanValue (-1) देता है // तुलनाडाइमटाइम (FutureMoment, ThisMoment) ग्रेटरनथालव्यू (1) देता है

दो टीडीटाइमर मानों की तुलना करता है ("कम", "बराबर" या "अधिक")। दिनांक मान को अनदेखा करता है यदि दोनों मान एक ही समय में आते हैं।

घोषणा:
प्रकार TValueRelationship = -1..1
समारोह CompareDate (स्थिरांक ADate, BDate: TDateTime): TValueRelationship

विवरण:
दो टीडीटाइमर मानों की तुलना करता है ("कम", "बराबर" या "अधिक")। यदि दोनों मान एक ही समय में आते हैं तो समय भाग को अनदेखा कर देता है।

TValueRelationship दो मूल्यों के बीच संबंध का प्रतिनिधित्व करता है। तीन TValueRelationship मूल्यों में से प्रत्येक में एक "पसंद" प्रतीकात्मक स्थिर है:
-1 [लेसोथानवेल्यू] पहला मूल्य दूसरे मूल्य से कम है।
0 [इक्वलवैल्यू] दो मूल्य समान हैं।
1 [ग्रेटरनथाल्यू] पहला मूल्य दूसरे मूल्य से अधिक है।
तुलना परिणाम:

लेडथनवेल्यू यदि बीट द्वारा निर्दिष्ट दिन में पहले होता है।
समतुल्य यदि दिनांक और भाग दोनों के समय भाग समान हैं, दिनांक की अनदेखी कर रहे हैं।
ग्रैडटेवलव्यू यदि बीट द्वारा निर्दिष्ट दिन में बाद में होता है।

उदाहरण:

var यहमोमेंट, एक औरमॉमेंट: टीडीएटी टाइम; दिसोमेंट: = अब; अन्यमोमेंट: = इनचौर (यहमोमेंट, 6); // 6 घंटे जोड़ता है। // तुलना करें (यह, दूसरा, दूसरा) लौटेगा // तुलना करें (एक औरMoment, ThisMoment) ग्रेटरनथाल्यू (1) देता है

वर्तमान सिस्टम दिनांक लौटाता है।

घोषणा:
प्रकार टेटेटेटिम = प्रकार डबल;

समारोह दिनांक: TDateTime;

विवरण:
वर्तमान सिस्टम दिनांक लौटाता है।

TDateTime मान का अभिन्न अंग उन दिनों की संख्या है जो 12/30/1899 से गुजरे हैं। TDateTime मान का आंशिक भाग 24 घंटे के उस दिन का अंश है, जो बीत चुका है।

दो तिथियों के बीच के दिनों की भिन्नात्मक संख्या ज्ञात करने के लिए, बस दो मानों को घटाएँ। इसी तरह, एक निश्चित भिन्नात्मक संख्या के आधार पर दिनांक और समय मान को बढ़ाने के लिए, भिन्नात्मक संख्या को तिथि और समय मान में जोड़ दें।

उदाहरण: ShowMessage ('आज है' + DateToStr (दिनांक));

एक स्ट्रिंग (दिनांक और समय) के लिए एक TDateTime मान परिवर्तित करता है।

घोषणा:
प्रकार टेटेटेटिम = प्रकार डबल;

समारोह DayOfWeek (दिनांक: TDateTime): पूर्णांक;

विवरण:
दी गई तारीख के लिए सप्ताह का दिन लौटाता है।

DayOfWeek 1 और 7 के बीच पूर्णांक देता है, जहां रविवार सप्ताह का पहला दिन होता है और शनिवार को सातवां होता है।
DayOfTheWeek आईएसओ 8601 मानक के अनुरूप नहीं है।

उदाहरण:

const दिनों: सरणी [1..7] स्ट्रिंग का = ('रविवार सोमवार मंगलवार बुधवार गुरुवार शुक्रवार शनिवार') ShowMessage ('आज है' + दिन [DayOfWeek (दिनांक)]); //आज सोमवार है

दो निर्दिष्ट तिथियों के बीच पूरे दिन की संख्या देता है।

घोषणा:
समारोह डेज़बेटन (कॉन्स्टेंट एनो, एथन: टेडेटे टाइम): इंटेगर;

विवरण:
दो निर्दिष्ट तिथियों के बीच पूरे दिन की संख्या देता है।

फ़ंक्शन केवल पूरे दिन गिनता है। इसका मतलब यह है कि यह 05/01/2003 23:59:59 और 05/01/2003 23:59:58 के बीच अंतर के परिणाम के रूप में वापस आ जाएगा - जहां वास्तविक अंतर एक * पूरे * दिन शून्य से 1 सेकंड है। ।

उदाहरण:

var dtNow, dtBirth: TDateTime; डेज़फ्रॉम बर्थ: पूर्णांक; dtNow: = Now; dtBirth: = एनकोडडेट (1973, 1, 29); डेज़फ्रॉम बर्थ: = डेज़बेटन (dtNow, dtBirth); ShowMessage ('जार्को गजिक "मौजूद है" + IntToStr (DaysFromBirth) + 'पूरे दिन!');

समय भाग को 0 पर सेट करके, केवल TDateTime मान का दिनांक भाग लौटाता है।

घोषणा:
समारोह DateOf (दिनांक: TDateTime): TDateTime

विवरण:
समय भाग को 0 पर सेट करके, केवल TDateTime मान का दिनांक भाग लौटाता है।

डेटऑफ का समय भाग 0 पर सेट होता है, जिसका अर्थ है मध्यरात्रि।

उदाहरण:

var ThisMoment, ThisDay: TDateTime; दिसोमेंट: = अब; // -> 06/27/2003 10:29:16:138. ThisDay: = DateOf (ThisMoment); // यह दिन: = 06/27/2003 00: 00: 00: 000

टीडीटेट टाइम मान से वर्ष, महीना और दिन का मान अलग करता है।

घोषणा:
प्रक्रिया DecodeDate (दिनांक: TDateTime; वर वर्ष, महीना, दिन: शब्द) ;;

विवरण:
टीडीटेट टाइम मान से वर्ष, महीना और दिन का मान अलग करता है।

यदि दिए गए TDateTime का मान शून्य से कम या उसके बराबर है, तो वर्ष, महीना और दिन वापसी पैरामीटर सभी शून्य पर सेट हैं।

उदाहरण:

var Y, M, D: शब्द; डिकोडडेट (दिनांक, वाई, एम, डी); यदि Y = 2000 है। शो मेसेज ('' आप '' गलत '' सदी में हैं)!

एनकोडेटड फ़ंक्शन
वर्ष, महीने और दिन के मूल्यों से एक TDateTime मान बनाता है।

घोषणा:
समारोह एनकोडडेट (वर्ष, महीना, दिन: शब्द): टीडीटेट टाइम

विवरण:
वर्ष, महीने और दिन के मूल्यों से एक TDateTime मान बनाता है।

वर्ष 1 और 9999 के बीच होना चाहिए। मान्य माह मान 12 के माध्यम से 1 हैं। माह मान के आधार पर मान्य दिवस मान 28, 29, 30 या 31 के माध्यम से 1 हैं।
यदि फ़ंक्शन विफल हो जाता है, तो EncodeDate एक EConvertError अपवाद उठाता है।

उदाहरण:

var Y, M, D: शब्द; dt: TDateTime; y: = 2001; एम: = 2; डी: = 18; dt: = EncodeDate (Y, M, D); शो मेसेज ('बोर्ना होगा) एक साल की उम्र में '+ DateToStr (dt))

FormatDateTime फ़ंक्शन
एक स्ट्रिंग के लिए एक TDateTime मान का प्रारूपण करता है।

घोषणा:
समारोह FormatDateTime (स्थिरांक एफएमटी: स्ट्रिंग; मान: TDateTime): तार;

विवरण:
एक स्ट्रिंग के लिए एक TDateTime मान का प्रारूपण करता है।

FormatDateTime Fmt पैरामीटर द्वारा निर्दिष्ट प्रारूप का उपयोग करता है। समर्थित प्रारूप विनिर्देशक के लिए डेल्फी हेल्प फाइल्स देखें।

उदाहरण:

var s: string; d: TDateTime;... घ: अब =; // आज + वर्तमान समय। एस: = FormatDateTime ( 'dddd', घ); // s: = बुधवार। s: = FormatDateTime ('' आज है "dddd" मिनट "nn ', d) // s: = आज बुधवार 24 मिनट है

दिनांक मान से दिए गए दिनों की संख्या को जोड़ता या प्रतिस्थापित करता है।

घोषणा:
समारोह IncDay (ADate: TDateTime; दिन: पूर्णांक = 1): टीडीटाइम;

विवरण:
दिनांक मान से दिए गए दिनों की संख्या को जोड़ता या प्रतिस्थापित करता है।

यदि दिन का पैरामीटर नकारात्मक है, तो लौटी तारीख

उदाहरण:

var दिनांक: TDateTime; एनकोडडेट (दिनांक, २००३, १, २ ९) // २ ९ जनवरी २००३। इनडे (दिनांक, -1) // 28 जनवरी, 2003

वर्तमान सिस्टम दिनांक और समय लौटाता है।

घोषणा:
प्रकार टेटेटेटिम = प्रकार डबल;

समारोह अब: टेटेटाइम;

विवरण:
वर्तमान सिस्टम दिनांक और समय लौटाता है।

TDateTime मान का अभिन्न अंग उन दिनों की संख्या है जो 12/30/1899 से गुजरे हैं। TDateTime मान का आंशिक भाग 24 घंटे के उस दिन का अंश है, जो बीत चुका है।

दो तिथियों के बीच के दिनों की भिन्नात्मक संख्या ज्ञात करने के लिए, बस दो मानों को घटाएँ। इसी तरह, एक निश्चित भिन्नात्मक संख्या के आधार पर दिनांक और समय मान को बढ़ाने के लिए, भिन्नात्मक संख्या को तिथि और समय मान में जोड़ दें।

उदाहरण: ShowMessage ('अब है' + DateTimeToStr (अब));

दो निर्दिष्ट तिथियों के बीच पूरे वर्ष की संख्या देता है।

घोषणा:
समारोह YearsBetween (स्थिरांक SomeDate, OtherDate: TDateTime): इंटेगर;

विवरण:
दो निर्दिष्ट तिथियों के बीच पूरे वर्ष की संख्या देता है।

वर्ष प्रति वर्ष 365.25 दिनों की धारणा के आधार पर वर्षों का रिटर्न एक सन्निकटन है।

उदाहरण:

var dtSome, dtAnother: TDateTime; डेज़फ्रॉम बर्थ: पूर्णांक; dtSome: = EncodeDate (2003, 1, 1); dtAnother: = EncodeDate (2003, 12, 31); वर्षबेटन (dtSome, dtAnother) == 1 // गैर-लीप वर्ष। dtSome: = EncodeDate (2000, 1, 1); dtAnother: = EncodeDate (2000, 12, 31); वर्षबेटन (dtSome, dtAnother) == 0 // लीप वर्ष