Xbasic
*months_between Function
Syntax
dim Result as N = *MONTHS_BETWEEN(t1 as T, t2 as T)
Arguments
- t1Time
A datetime value.
- t2Time
A datetime value
Returns
- ResultNumeric
Returns the months between two dates or times. If t2 is a date or time later than t1, *MONTHS_BETWEEN will return a negative value.
Description
Return difference of months between two dates or times.
Example
dim cn as sql::Connection
cn.open("::Name::northwind")
dim args as sql::arguments
args.set("orderID",10251)
dim sql as c = "SELECT * FROM orders WHERE orderid = :orderID"
cn.execute(sql,args)
if (cn.ResultSet.NextRow()) then
dim t1 as T = cn.resultset.data("requireddate")
dim t2 as T = cn.resultset.data("shippeddate")
dim months_between as N = *months_between(t1,t2)
months_between = abs(months_between)
dim timing as c = ""
if (t2 > t1) then
timing = "late"
else
timing = "early"
end if
ui_msg_box("Months Between","Order 10251 was shipped " + months_between + " month " + timing + crlf(2) + "Required date: " + time("MM/dd/yyyy",t1) + crlf() + "Shipped date: " + time("MM/dd/yyyy", t2))
end if
cn.close()See Also