Scholar Year

How can I create a calculation field that automatically display the current scholar year that start on August and finnish on July?
example: Current Scholar Year: 2004-2005
example: Current Scholar Year: 2004-2005
Let ( [
d = Get ( CurrentDate ) ;
changeon = Date ( 8 ; 1 ; Year ( d ) )
] ;
Case (
d >= changeon ;
Year ( d ) & " - " & Year ( d ) + 1 ;
Year ( d ) - 1 & " - " & Year ( d )
) // End Case
) // End Let