| modDateTime 函式庫 |
風禹科技驗證有限公司 網站 提供 .Net 原始碼 |
說明
取得在目標日期之時間階段索引值
本函數之引數列表
| 引數 |
型態 |
位元組 |
選項 |
預設值 |
說明 |
| vYear |
長整數 |
4 |
必須 |
(無) |
輸入目標年之西元年份 |
| vMonth |
長整數 |
4 |
必須 |
(無) |
輸入目標年之月份 |
| vDay |
長整數 |
4 |
必須 |
(無) |
輸入目標年之日期 |
| StageCount |
長整數 |
4 |
必須 |
(無) |
設定常數變數使本函數傳回內容：
| 常數名 |
數值 |
說明 |
| SC_Year |
1 |
傳回年索引，永遠傳回 1 |
| SC_Month |
12 |
傳回月索引，即當月月份 |
| SC_TenDays |
36 |
傳回旬索引，1 ~ 36 |
| SC_Day |
365 |
傳回日索引，1 ~366，同 SC_Days |
| SC_Days |
366 |
傳回日索引，1 ~366，同 SC_Day |
|
| bNoLeapDay |
Logical |
4 |
可省略 |
.False. |
若為 .True. 時，閏年在取得日索引不加閏日，例如 2004/12/31 為 365 非 366 |
傳回值
取得在目標日期之時間階段索引值
範例
Program Main
Use modDateTime
Integer :: vYear, vMonth, vDay
vYear = 2000
vMonth = 1
vDay = 1
Do i = 1, 36
Call DateAdd(vYear, vMonth, vDay, 10)
Write(*,*) vYear, vMonth, vDay
Write(*,*) GetStageIndex(vYear, vMonth, vDay, SC_Month) ! 傳回月份
Write(*,*) GetStageIndex(vYear, vMonth, vDay, SC_TenDays) ! 傳回當年第幾旬
Write(*,*) GetStageIndex(vYear, vMonth, vDay, SC_Day, .True.) ! 傳回當年第幾日
End Do
End Program
基本條件
Microsoft PowerStation 4.0 以後版本 | DateTime.f90
請參閱
modDateTime 函式庫 | DateAdd
