【正文】 and yea10=0000then yea10=1001。yea11=1001。 elsif yea10=0000and yea11/=0000then yea10=1001。yea11=yea1139。139。 else yea10=yea1039。139。yea11=yea11。 end if。 elsif lock=010and tn=39。139。then 對(duì)年進(jìn)行加的預(yù)置數(shù) if yea10=1001and yea11=1001then yea11=0000。yea10=0000。 elsif yea10=1001then yea10=0000。yea11=yea11+39。139。 else yea10=yea10+39。139。yea11=yea11。 end if。 elsif lock=011and tn=39。039。then 對(duì)月進(jìn)行減的置數(shù) if mon10=0001 and mon11=0000then 1月份再減一變12 mon10=0010。mon11=0001。 elsif mon10=0000and mon11/=0000then mon10=1001。mon11=mon1139。139。 else mon10=mon1039。139。mon11=mon11。 end if。 elsif lock=011and tn=39。139。then 對(duì)月進(jìn)行加的預(yù)置數(shù) if mon10=0010 and mon11=0001then mon10=0001。mon11=0000。 加到12月份變1月份 elsif mon10=1001then mon10=0000。mon11=mon11+39。139。 else mon10=mon10+39。139。mon11=mon11。 end if。 elsif lock=100and tn=39。039。then 對(duì)日進(jìn)行減的置數(shù) if (mon10=0001and mon11=0000)or(mon10=0011and mon11=0000) or(mon10=0101and mon11=0000)or(mon10=0111and mon11=0000) or(mon10=1000and mon11=0000)or(mon10=0000and mon11=0001) or(mon10=0010and mon11=0001)then if dat10=0001 and dat11=0000then1 3 5 7 8 10 12大月31天 dat10=0001。dat11=0011。 1號(hào)減一變31號(hào) elsif dat10=0000and dat11/=0000then 個(gè)位為0 十位不為0 dat10=1001。dat11=dat1139。139。 個(gè)位變9 十位減一 else dat10=dat10 39。139。dat11=dat11。 end if。 elsif (mon10=0100and mon11=0000)or(mon10=0110and mon11=0000) or(mon10=1001and mon11=0000)or(mon10=0001and mon11=0001)then if dat10=0001 and dat11=0000then2 4 6 8 10小月 30天 dat10=0000。dat11=0011。 1號(hào)減一變30號(hào) elsif dat10=0000and dat11/=0000then 個(gè)位為0 十位不為0 dat10=1001。dat11=dat1139。139。 個(gè)位變9 十位減一 else dat10=dat1039。139。dat11=dat11。 end if。 Else 除了大月和小月 剩下 2 月 對(duì)閏年的判斷2月29 數(shù)碼管只顯示年后兩位 前兩位默認(rèn)為20 故只要后兩位能被4整除即使閏年 if((yea11=0000OR yea11=0010OR yea11=0100OR yea11=0110 OR yea11=01000)AND(yea10=0000 OR yea10=0100OR yea10=01000))OR ((yea11=0001 OR yea11=0011 OR yea11=0101OR yea11=0111 OR yea11=1001)AND(yea10=0010OR yea10=0110)) THEN if dat10=0001 and dat11=0000then閏2月29天 dat10=1001。dat11=0010。 1號(hào)減一變29號(hào) elsif dat10=0000and dat11/=0000then 個(gè)位為0 十位不為0 dat10=1001。dat11=dat1139。139。 個(gè)位變9 十位減一 else dat10=dat1039。139。dat11=dat11。 end if。 else 不是閏年，二月份28天 if dat10=0001 and dat11=0000then平2月28天 dat10=1000。dat11=0010。 1號(hào)減一變29號(hào) elsif dat10=0000and dat11/=0000then 個(gè)位為0 十位不為0 dat10=1001。dat11=dat1139。139。 個(gè)位變9 十位減一 else dat10=dat1039。139。dat11=dat11。 end if。 end if。 end if。 elsif lock=100 and tn=39。139。then 對(duì)相應(yīng)的日進(jìn)行加置數(shù) if (mon10=0001and mon11=0000)or(mon10=0011and mon11=0000) or(mon10=0101and mon11=0000)or(mon10=0111and mon11=0000) or(mon10=1000and mon11=0000)or(mon10=0000and mon11=0001) or(mon10=0010and mon11=0001)then if dat10=0001 and dat11=0011then dat10=0001。dat11=0000。 elsif dat10=1001then dat10=0000。dat11=dat11+39。139。 else dat10=dat10+39。139。dat11=dat11。 end if。 elsif (mon10=0100and mon11=0000)or(mon10=0110and mon11=0000) or(mon10=1001and mon11=0000)or(mon10=0001and mon11=0001)then if dat10=0000 and dat11=0011then 小月30天 dat10=0001。dat11=0000。 elsif dat10=1001then dat10=0000。dat11=dat11+39。139。 else dat10=dat10+39。139。dat11=dat11。 end if。 Else 除了大月和小月 剩下 2 月 對(duì)閏年的判斷2月29 if((yea11=0000OR yea11=0010OR yea11=0100OR yea11=0110 OR yea11=01000)AND(yea10=0000 OR yea10=0100OR yea10=01000))OR ((yea11=0001 OR yea11=0011 OR yea11=0101OR yea11=0111 OR yea11=1001)AND(yea10=0010OR yea10=0110)) THEN if dat10=1001 and dat11=0010then 29天 dat10=0001。dat11=0000。 elsif dat10=1001then dat10=0000。dat11=dat11+39。139。 else dat10=dat10+39。139。dat11=dat11。 end if。 else 不是閏年，二月份28天 if dat10=1000 and dat11=0010then 小月28天 dat10=0001。dat11=0000。 elsif dat10=1001then dat10=0000。dat11=dat11+39。139。 else dat10=dat10+39。139。dat11=dat11。 end if。 end if。判斷閏年 end if。 月份 end if。 end if。 end if。 end process。end Behavioral。 時(shí)間顯示模塊 Company: Engineer: Create Date: 08:34:36 01/14/2014 Design Name: Module Name: time_show Behavioral Project Name: Target Devices: Tool versions: Description: Dependencies: Revision: Revision File Created Additional Comments: library IEEE。use 。use 。use 。 Unment the following library declaration if using arithmetic functions with Signed or Unsigned valuesuse 。 Unment the following library declaration if instantiat