Socialmetrica/Socialmetrica.package/Week.extension/instance/asDatesString.st

9 lines
233 B
Smalltalk

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