घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

तारीखों की तुलना कैसे करें। इसी तरह की शाखाएँ खोजें


DerZky   (2001-12-18 19:54) [0]

नमस्ते कार्य यह है: जब आप पहली बार कार्यक्रम शुरू करते हैं, तो आपको रजिस्ट्री में लॉन्च की तारीख लिखने की आवश्यकता होती है, और बाद के लोगों में, आज की तारीख और रजिस्ट्री में दर्ज तारीख के बीच एक पूर्णांक चर की गणना करें। यदि आप कोड के साथ उत्तर दे सकते हैं। आपका धन्यवाद।



Anatoly Podgoretsky   (2001-12-18 20:39) [1]

खैर, आप :-)
टाइप डबल का टीडीएट {टाइम} का एक वैरिएबल, जहां पूरे दिन की संख्या है, क्या आपको वास्तव में एक उदाहरण की आवश्यकता है?



DerZky   (2001-12-19 19:16) [2]

तो क्या?

procedure TForm1.Button1Click(Sender: TObject);
var
SD,SD2:String;
D,D2:TDateTime;
D3:Double;
begin
DateSeparator:=".";
SD:="30.10.00";
SD2:="01.12.00";
D:=StrToDate(SD);
D2:=StrToDate(SD2);
D3:=D2-D;
end;



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.54 एमबी
समय: 0.022 c
14-22357
विक्टर शेरबकोव
2001-11-01 12:40
2002.01.08
फोटो वसूली


1-22194
कला
2001-12-15 09:28
2002.01.08
बाजरा सवाल!


1-22048
- == यूरका == -
2001-12-18 18:50
2002.01.08
ज्ञापन के साथ समस्या


3-21980
Aleksandr
2001-12-05 13:26
2002.01.08
प्रोग्राम में कनेक्शन स्ट्रिंग TADOConnection कैसे बनाएं?


1-22187
Mitry
2001-12-15 02:53
2002.01.08
धागा: निलंबित / फिर से शुरू और सिंक्रनाइज़ करें





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский