چرا این کد اشتباه است؟؟؟

[sajadakbari 163]

سلام

من برای بدست آوردن اختلاف روز های بین دو تاریخ کد زیر رو نوشتم و از کتابخونه ای که ضمیمه کردم استفاده کردم. اما به مسیج باکس گیر میده.

Dim TXT,TXT1 As String
TXT =  File.ReadString(File.DirAssets,"1.txt")
TXT1 =  File.ReadString(File.DirAssets,"2.txt")
Msgbox("تعداد روزهای مابین دو تاریخ "&MPD.CalculateDaysBetween( TXT,TXT1) & " روز است ","")

در ضمن توی فایل های تکست

اولی اینجور:2015,01,10

دومی اینجور:2015,01,23

بعد چجوری باید بگم که تعداد روز از فلان مقدار بیشتر شد یه فایل مورد نظر رو حذف کنه؟

ManamPersianDate.zip

[مجید آرتا 5,874]

این کد به این شکل عمل میکنه :

[b]
TXT = MPD.PersianToGregorian(سال,ماه,روز)
TXT1 = MPD.PersianToGregorian(سال,ماه,روز)
Msgbox("تعداد روزهای مابین دو تاریخ "&MPD.CalculateDaysBetween( date1,date2) & " روز است ","")[/b]

حالا واسه حساب کردن احتلافشون از راه های دیگه هم میشه استفاده کرد

مثلا اینجوری :

[b]
Dim TXT,TXT1 As String
TXT =  File.ReadString(File.DirAssets,"1.txt")
TXT1 =  File.ReadString(File.DirAssets,"2.txt")
Dim S1() , S2() As String
S1 = Regex.Split(",",TXT)
S2 = Regex.Split(",",TXT1)
Dim Result As Int
If IsNumber(S1(2)) = True And IsNumber(S2(2)) = True Then
 Result = S2(2) - S1(2)
End If
 If Result = 10 Then
  Msgbox("10 Ruz Az Kharid Gozashte Ast","")
 End If[/b]

یک همچین چیزی.کدشو دستی نوشتم تست نکردم.

[sajadakbari 163]

این کد به این شکل عمل میکنه :

[b]
TXT = MPD.PersianToGregorian(سال,ماه,روز)
TXT1 = MPD.PersianToGregorian(سال,ماه,روز)
Msgbox("تعداد روزهای مابین دو تاریخ "&MPD.CalculateDaysBetween( date1,date2) & " روز است ","")[/b]

حالا واسه حساب کردن احتلافشون از راه های دیگه هم میشه استفاده کرد

مثلا اینجوری :

[b]
Dim TXT,TXT1 As String
TXT =  File.ReadString(File.DirAssets,"1.txt")
TXT1 =  File.ReadString(File.DirAssets,"2.txt")
Dim S1() , S2() As String
S1 = Regex.Split(",",TXT)
S2 = Regex.Split(",",TXT1)
Dim Result As Int
If IsNumber(S1(2)) = True And IsNumber(S2(2)) = True Then
 Result = S2(2) - S1(2)
End If
 If Result = 10 Then
  Msgbox("10 Ruz Az Kharid Gozashte Ast","")
 End If[/b]

یک همچین چیزی.کدشو دستی نوشتم تست نکردم.

خدا خیرت بده. خیلی وقت بود دنبالش بودم.

با چه دستوری میتونم یه فایل مورد نظر رو حذف کنم؟

[مجید آرتا 5,874]

با این کد میتونید حذف کنید :

[b]File.Delete(File.DirInternal,"mesal.txt")[/b]

با این کد میتونید اول چک کنید که فایل هستش بعد بیاد حذف کنه :

[b]  If File.Exists(File.DirInternal,"mesal.txt") = True Then
   File.Delete(File.DirInternal,"mesal.txt")
End If[/b]