Printable View
با سلام و قبولی طاعات و عبادات همه دوستان و عزیزان
من دو فید دارم که تاریخ را در آنها ذخیره می کنم که ساختار فیلدها text با 10کاراکتر می باشد
حال میخواهم تاریخ این دو را از هم کم کنم و در فید سوم (به روز )بنویسم
مثلاً dates:85/07/15 و datef:85/07/16 بود این دو را از هم کم کند و نتیجه datef-dates=1 را به ما بدهد.
با تشکر از همه عزیزان
داود
سلام
این تابع رو خودم نوشتم. ببین بدرد می‌خوره؟
function TfrmMain.Duration(y1,m1,d1,y2,m2,d2:Integer):Integ er;
var
day:integer;
begin
day:=d2-d1;
if m2>m1 then
begin
if m2<7 then
day:=31-d1+d2+(m2-m1-1)*31;
if m1>6 then
day:=30-d1+d2+(m2-m1-1)*30;
if (m2>6) and (m1<=6) then
day:=31-d1+(6-m1)*31+(m2-7)*30+d2;
end;
if y2>y1 then
begin
if y1 mod 4=3 then
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+180+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+180+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30+186+(m2-7)*30+d2;
end
else
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+179+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+179+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30-1+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30-1+186+(m2-7)*30+d2;
end
end;
result:=day;
end;
منم این تابع رو نوشتم که تاریخ رو به عدد تبدیل می کنه .
البته نامردی اگه این نکته رو نگم که آخر سال دو سه روزی کم و زیاد می شه
نقل قول:
{-------------------------------------------------------------------}
Function Datetonum (Y,M,D:INT64):INT64;
Var
Moon1,Moon2,MoonEnd:INT64;
Begin
Moon1:=0;
Moon2:=0;
MoonEnd:=0;
If (M>6) And (M<12) Then Begin
Moon1:=6*31;
Moon2:=(M-6)*30;
End Else Begin
If (M<>12) Then Moon1:=M*31;
End;
If (M=12) Then Begin
Moon1:=6*31;
Moon2:=5*30;
If (Y Mod 4)=3 Then MoonEnd:=30 Else MoonEnd:=29;
End;
Datetonum:=(Y*365)+Moon1+Moon2+MoonEnd+D;
End;
{-------------------------------------------------------------------}
با سلام بر دوستان
ضمن عرض تشکر از شما من فقط می خواهم دو فیلد تاریخ را از هم کم کنم و در فید سوم بنویسم
ساختار فیلدها نیز text می باشد با 10 کاراکتر
من برای ورود تاریخ شمسی و ... مشکلی ندارم
مثال :
اگر dtae1:85/07/16 و date2:85/07/20 بود در فیلد سوم یا در یک تکس باکس date3:4 روز را به ما بدهد
با تشکر از همه عزیزان
داود
سلام
تابعی که برای شما نوشتم این کاررو می‌کنه. کافیه شما مقادیر y1,m1,d1,y2,m2,d2 را از داخل فیلدهای date1 و date2 استخراج کنید و به تابع بدهید و نتیجه تابع رو در فیلد date3 بنویسید.
درسته دوست عزیز ولی فرض کنید که یک تاریخ 83/12/28 و تاریخ دوم 84/1/1 حالا فاصله سه روزه یا دو روز ؟نقل قول:
نوشته شده توسط davoodmz
به خاطر اینکه سال 83 کبیسه هست پس جواب باید 3 باشد اما در مورد سالهای دیگه جواب 2 می باشد .
برای بدست آوردن سال کبیسه هم سال رو تقسیم بر چهار کن اگه باقیمانده 3 شد یعنی اون سال کبیسه است .
دوست عزیز اما الگوریتم شما هم سال کبیسه رو پوشش نمی ده .نقل قول:
نوشته شده توسط saeed_d
سلامنقل قول:
نوشته شده توسط Saeid59_m
این قسمت از کد رو نگاه کنید::چشمک:
if y1 mod 4=3 then
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+180+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+180+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30+186+(m2-7)*30+d2;
end
else
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+179+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+179+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30-1+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30-1+186+(m2-7)*30+d2;
end
درسته من دقت نکردم عذر می خوام .
ما می تونیم یه تابع بنویسیم که خودش تاریخ را محاسبه کنه فقط کافیه که مقدار دقیق هر سال را به دست بیاریم تا سالهای کبیسه را شناسایی کنیم.
مقدار هر سال 365 روز 6 ساعت ؟؟ دقیقه و ؟؟ ثانیه
موفق باشید.
باسلام
دوستان عزیز
به جواب رسیدم با تشکر از همه
داود
Function P_Date_Date(_FirstDate,_EndDate:String):String;
Var
i:Byte;
Str1,Str2,Str3,Str4,Str5,Str6,Final:ShortString;
_CheckLengh:Boolean;
Begin
If (Length(_FirstDate)=8) AND (Length(_EndDate)=8) Then
Begin
For i:=7 To 8 Do Str1:=Str1+_FirstDate[i];
For i:=7 To 8 Do Str2:=Str2+_EndDate[i];
For i:=4 To 5 Do Str3:=Str3+_FirstDate[i];
For i:=4 To 5 Do Str4:=Str4+_EndDate[i];
For i:=1 To 2 Do Str5:=Str5+_FirstDate[i];
For i:=1 To 2 Do Str6:=Str6+_EndDate[i];
_CheckLengh:=True;
End
Else
If (Length(_FirstDate)=10) AND (Length(_EndDate)=10) Then
Begin
For i:=9 To 10 Do Str1:=Str1+_FirstDate[i];
For i:=9 To 10 Do Str2:=Str2+_EndDate[i];
For i:=6 To 7 Do Str3:=Str3+_FirstDate[i];
For i:=6 To 7 Do Str4:=Str4+_EndDate[i];
For i:=1 To 4 Do Str5:=Str5+_FirstDate[i];
For i:=1 To 4 Do Str6:=Str6+_EndDate[i];
_CheckLengh:=True;
End
Else
_CheckLengh:=False;
If _CheckLengh Then
Begin
Str5:=IntToStr(StrToInt(Str5)*365);
Str6:=IntToStr(StrToInt(Str6)*365);
If Str3<='6' Then Str5:=IntToStr((StrToInt(Str5)+StrToInt(Str3)*31)) ;
If Str4<='6' Then Str6:=IntToStr((StrToInt(Str6)+StrToInt(Str4)*31)) ;
If (Str3>'6') and (Str3<='12') Then
Begin
Str3:=IntToStr(StrToInt(Str3)-6);
Str5:=IntToStr((StrToInt(Str5)+(StrToInt(Str3)*30) +186));
End;
If (Str4>'6') and (Str4<='12') Then
Begin
Str4:=IntToStr(StrToInt(Str4)-6);
Str6:=IntToStr((StrToInt(Str6)+(StrToInt(Str4)*30) +186));
End;
Str5:=intToStr(StrToInt(Str5)+(StrToInt(Str1)));
Str6:=intToStr(StrToInt(Str6)+(StrToInt(Str2)));
Final:=intToStr(StrToInt(Str6)-(StrToInt(Str5)));
Result:=Final;
End;
End;
جناب آقای فرزاد متاسفانه تابع شما اصلا درست کار نمی کنه :متفکر:
می توتید از Persian.Dll استفاده کنید که همه این توابع را بدون مشکل در اختیار شما می گذارد.
Persian.dll
Function XAddToDate(XDate : ShortString; XAdd : Integer) : ShortString
این تابع یک تاریخ شمسی را گرفته و به آن XAdd روز اضافه می کند و شمسی بر می گرداند.
Function XSubDate(XDate : ShortString; XSub : Integer) : ShortString
این تابع یک تاریخ شمسی را گرفته و از آن XSub روز کم می کند و شمسی بر می گرداند.
موفق باشید :قلب:
showmessage(datetostr(date-12));
یا
DaysBetween function
Returns the number of whole days between two specified TDateTime values.