تويت
عدد الايام التي مرت لغاية اليوم
re = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System", "SystemBiosDate", true);
day = System.GetDate(DATE_FMT_DAY);
month = System.GetDate(DATE_FMT_MONTH);
year = System.GetDate(DATE_FMT_YEAR);
Input.SetText("day", day);
Input.SetText("month", month);
Input.SetText("year", year);
day = String.ToNumber(day);
month = String.ToNumber(month);
year = String.ToNumber(year);
lis = {1988,1992,1996,2000,2004,2008,2012,2016,2020}
for i in pairs(lis) do
if year == i then
m12 = 366
m11 = m12-31
m10 = m11-30
m9 = m10 - 31
m8 = m9 -30
m7 = m8 -31
m6 = m7 -31
m5 = m6 -30
m4 = m5 -31
m3 = m4-30
m2 = m3-31
m1 = m2-29
else
m12 = 365
m11 = m12-31
m10 = m11-30
m9 = m10 -31
m8 = m9 -30
m7 = m8 -31
m6 = m7 -31
m5 = m6 -30
m4 = m5 -31
m3 = m4-30
m2 = m3-31
m1 = m2-28
end
end
moi = {m1,m2,m3,m4,m4,m5,m6,m7,m8,m9,m10,m11,m12}
for p in pairs(moi) do
if month == p then
mo = moi[p]
d= day
so = mo+d
Input.SetText("Input2", so-1);
end
end
re = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System", "SystemBiosDate", true);
local dayValue, monthValue, yearValue = string.match(re, '(%d%d)/(%d%d)/(%d%d)')
now = os.time{year = yearValue, month = monthValue, day = dayValue}
t1 = os.time{year = tonumber(yearValue)+ 2000, month= tonumber(monthValue), day= tonumber(dayValue)}
t2 = os.time{year = System.GetDate(DATE_FMT_YEAR), month= System.GetDate(DATE_FMT_MONTH), day= System.GetDate(DATE_FMT_DAY)}
Dialog.Message("ابو بلقيس2015"," عدد الايام "..os.difftime (t2, t1)/(60*24)/60 );
re = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System", "SystemBiosDate", true);
local dayValue, monthValue, yearValue = string.match(re, '(%d%d)/(%d%d)/(%d%d)')
now = os.time{year = yearValue, month = monthValue, day = dayValue}
t1 = os.time{year = tonumber(yearValue)+ 2000, month= tonumber(monthValue), day= tonumber(dayValue)}
t2 = os.time{year = System.GetDate(DATE_FMT_YEAR), month= System.GetDate(DATE_FMT_MONTH), day= System.GetDate(DATE_FMT_DAY)}
Dialog.Message("ابو بلقيس2015"," عدد الايام "..os.difftime (t2, t1)/(60*24)/60 );
.............. هنا عرفت معنى الاية هل يستوي الذين يعلمون و الذين لا يعلمون
تعليق