Calendar: Difference between revisions

<lang vb>

'call it with year, number of months per row (1,2,3,4,6) and locale ("" for default)

 

function center (s,n) x=n-len(s):center=space(x\2+(x and 1))& s & space(x\2):end function