求教e4a程序閃退原因

ID:343102 · 發表于 2026-5-30 16:28

本帖最后由風158 于 2026-5-30 16:32 編輯

編了一個計算年積日的e4a程序，編譯通過后在手機上運行卻閃退。不知道什么原因。附上程序代碼：

事件主窗口.按下某鍵(鍵代碼為整數型,傳址屏蔽為邏輯型)
      如果鍵代碼 = 返回鍵則
            結束程序()
      結束如果
結束事件
事件按鈕1.被單擊()
變量 n 為整數型  'day of year(doy)
變量 yy 為整數型
變量 mm 為整數型
變量 dd 為整數型
變量 i 為整數型
變量 dom 為整數型(12)
yy=到整數(編輯框1.內容)
mm=到整數(編輯框2.內容)
dd=到整數(編輯框3.內容)
dom(1)=0
dom(2)=31
dom(3)=28
dom(4)=31
dom(5)=30
dom(6)=31
dom(7)=30
dom(8)=31
dom(9)=31
dom(10)=30
dom(11)=31
dom(12)=30
n=0
變量循環首 i = 1 至 mm
   n=n+dom(i)
變量循環尾
n=n+dd
如果 (((yy % 4)=0) & ((yy % 100)<>0) & ((yy % 400)=0) & (mm>2))

則
   n=n+1 '閏年>2月,n+1
結束如果
標簽6.標題 = "年積日=" & 整數到文本(n) & "天"
結束事件
事件按鈕2.被單擊()
      結束程序()
結束事件

ID:1064915 · 發表于 2026-5-31 08:28

年積日（Day of Year, DOY）計算

年積日是一種在一年之內連續計數的日期方法，從每年的1月1日開始計算，1月1日是第1天，1月2日是第2天，以此類推，直到年底。年積日在各種需要按日計算的應用中非常有用。

年積日的計算程序如下：
計算每個月的天數：

創建一個包含每個月天數的數組：days_in_month = [31 28 31 30 31 30 31 31 30 31 30 31]。

判斷是否為閏年：

如果年份能被4整除且不能被100整除，或者能被400整除，則該年為閏年，2月有29天。

如果是閏年，則將days_in_month數組中2月的天數改為29。

計算年積日：

使用公式：yearday = sum(days_in_month(1:(month - 1))) + day。

其中，sum函數表示求和，days_in_month(1:(month - 1))表示從1月到前一個月的天數之和。

示例：假設要計算2023年10月5日的年積日，則：

year = 2023，month = 10，day = 5。
判斷2023年是否為閏年：mod(2023, 4) ~= 0，所以不是閏年。
days_in_month = [31 28 31 30 31 30 31 31 30 31 30 31]（因為不是閏年，所以2月仍然是28天）。
yearday = sum(days_in_month(1:9)) + 5 = 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 5 = 277。
因此，2023年10月5日的年積日是277。

ID:343102 · 發表于 2026-5-31 09:40

joyb 發表于 2026-5-31 08:28
年積日（Day of Year, DOY）計算

年積日是一種在一年之內連續計數的日期方法，從每年的1月1日開始計算， ...

謝謝回復。
問題找到了，判斷時只用一個條件，編譯后在手機上才能運行。兩個就不行。

帳號		自動登錄	找回密碼
密碼			立即注冊

亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

求教e4a程序閃退原因