کد زیر دوتاریخ موجود در دو فایل رو از هم کم میکنه. فرمت تاریخ: 2015,05,11 به صورت 20150511 هم میتونم بزارم.
اما متاسفانه فقط دو عدد اول رو از هم کم میکنه. من تعداد index که 2باشه رو زیاد کردم. ولی ارور کمبود lengh میده.
Dim TXT,TXT1 As String
TXT = File.ReadString(File.DirAssets,"date2.txt")
TXT1 = File.ReadString(File.DirInternal,"date1.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 > 5 Then
Msgbox("10 Ruz Az Kharid Gozashte Ast","")
سوال
sajadakbari 163
سلام
کد زیر دوتاریخ موجود در دو فایل رو از هم کم میکنه. فرمت تاریخ: 2015,05,11 به صورت 20150511 هم میتونم بزارم.
اما متاسفانه فقط دو عدد اول رو از هم کم میکنه. من تعداد index که 2باشه رو زیاد کردم. ولی ارور کمبود lengh میده.
Dim TXT,TXT1 As String TXT = File.ReadString(File.DirAssets,"date2.txt") TXT1 = File.ReadString(File.DirInternal,"date1.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 > 5 Then Msgbox("10 Ruz Az Kharid Gozashte Ast","")لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.