# $Header: /home/cvsroot/tcldb/ucodb/Tlib/whichFY,v 1.4 2000/01/03 18:40:18 de Exp $
# tcl procs saved on Sun Sep 03 16:19:18 PDT 1995

proc whichFY {} {

#	which fiscal year is it Right Now?

	lassign [fmtclock [getclock] "%m %y"] mon yr

	set mon [string trimleft $mon 0]
	set yr [string trimleft $yr 0]

	if {$yr == ""} {set yr 0}

	if {$mon > 6} {
		set yr [expr $yr + 1]
		if {$yr > 99} {
			set yr [expr $yr - 100]
		}
	} 
	return "f[format %02d $yr]"

}

