*Socialmetrica
asDatesString

	| dates firstDate |
	dates := self asDatesStrings.
	firstDate := dates first splitOn: ' '.
	firstDate removeLast.
	firstDate:= '' join: firstDate.
	^ firstDate, '→', (dates second copyWithoutAll: ' ')