« first day (25 days earlier)      last day (18 days later) » 

Taylor Scott
Taylor Scott
2:34 PM
0
A: Alpha-Numerical Bowtie

Taylor ScottQBasic, 94 bytes An anonymous function that takes no input and outputs to the console. For y=-8To 8:z=Abs(y):a$="123456789abcdefghi":?Mid$(a$,1,9-z)String$(2*z,32)Mid$(a$,10+z):Next This answer is technically a polyglot, and will function in VBA

 
 
4 hours later…
Taylor Scott
Taylor Scott
6:16 PM
@DLosc you can get the code for this
down quite a bit 
INPUT s$
FOR i=1TO ASC(s$)-64
?TAB(i);
FOR j=1TO i
?CHR$(64+i)" ";
NEXT j,i
 
Taylor Scott
Taylor Scott
6:31 PM
@EriktheOutgolfer You can get this answer down to 111 bytes 
INPUT s$
n=LEN(s$)
FOR y=1TO n
FOR l=1TO y
?
FOR x=1TO n
z=x
IF y>x THEN z=y
?STRING$(x,MID$(s$,z));
NEXT x,l,y
 

« first day (25 days earlier)      last day (18 days later) »