Support Forum / Форум поддержки

Code: Select all

' Test if a given date differs a certain number of days
' with the current date. In this case 7, 14, and 30 days
'
n_today=nod(today$)
input "dd-mm-yyy":date_in$    ' European format
n_input_day=nod(date_in$)
diff=abs(n_input_day-n_today)
if diff%7=0 then print date_in$ & " in 7 days interval"
if diff%14=0 then print date_in$ & " in 14 days interval"
if diff%30=0 then print date_in$ & " in 30 days interval"
end

' current date as dd-mm-yyyy
'
def today$()
y=current_year()
mo=current_month() ! if mo<10 then mo$="0"&mo else mo$=mo
d=current_date()   ! if d<10 then d$="0"&d else d$=d
return d$&"-"&mo$&"-"&y
end def

' nod - number of days after 01 january, 2000
' the date is passed as string
' 
def nod(dt$)
base=option_base()
dim t(12)
if date2n(dt$)=0 then return 0
d=date2n.d ! m=date2n.m ! y=date2n.y
restore to labdata
for i=base to base+11 ! read t(i) ! next i
labdata:
data 0,1,-1,0,0,1,1,2,3,3,4,4
if y>=2000 then y-=2000
nd=365*y+floor((y-1)/4)+30*(m-1)+t(base+m-1)+d
if m>2 and y/4=0 then nd+=1
return nd
end def

' date$ to date numerics
' numerics available as date2date.d, .m and .y
' return 1 if ok, 0 if invalid date-format was passed
' 
def date2n(dt$)
base=mid$("10",1,1)
split dt$ to dat$,nd with "-"
if nd<>3 then return 0
d=dat$(base) ! m=dat$(base+1) ! y=dat$(base+2)
return 1
end def

Code: Select all

/*
Date Calculator by Henko, February 2018
The date format is European. The method is only valid
for dates after January 1st, 2000

Modified by rbytes to give number of days between two dates.
*/

input "First date as dd-mm-yyy":date_in$    ' European format
n_input_day2=nod(date_in$)
input "Second date as dd-mm-yyy":date_in2$    ' European format
n_input_day=nod(date_in2$)
diff=abs(n_input_day-n_input_day2)
print "The difference is";diff;"days"
end

' nod - number of days after 01 january, 2000
' the date is passed as string
' 
def nod(dt$)
base=option_base()
dim t(12)
if date2n(dt$)=0 then return 0
d=date2n.d ! m=date2n.m ! y=date2n.y
restore to labdata
for i=base to base+11 ! read t(i) ! next i
labdata:
data 0,1,-1,0,0,1,1,2,3,3,4,4
if y>=2000 then y-=2000
nd=365*y+floor((y-1)/4)+30*(m-1)+t(base+m-1)+d
if m>2 and y/4=0 then nd+=1
return nd
end def

' date$ to date numerics
' numerics available as date2date.d, .m and .y
' return 1 if ok, 0 if invalid date-format was passed
' 
def date2n(dt$)
base=mid$("10",1,1)
split dt$ to dat$,nd with "-"
if nd<>3 then return 0
d=dat$(base) ! m=dat$(base+1) ! y=dat$(base+2)
return 1
end def

Code: Select all

PRINT g(2017,2,1) - g(1958,12,2)

DEF g(y,m,d)
    m = (m + 9) % 12
    y = y - m/10
    nd = INT(365*y + y/4 - y/100 + y/400 + (m*306 + 5)/10 + ( d - 1 ) )
    RETURN nd
ENDDEF

REM Difference between two dates = g(y2,m2,d2) - g(y1,m1,d1)