How about something like this?
Code:
alarm = %1001  ' The ninth hour...
RTCHour_BIN = ((RTCHour >> 4) * 10) + (RTCHour & $0f) ' Converts BCD to Binary