上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
CPS0204
註冊時間: 2014-08-24 文章: 475
第 1 樓
|
發表於: 星期日 十月 04, 2020 5:53 pm 文章主題: vfox9 的逾時 日期格式會自動跑掉? |
|
|
有set date to ansi
平時運作中,程式都是 2020.05.31 這樣沒問題
但進系統後,放幾個小時沒動時,再一次動一下鍵盤鼠標
就會便成 9/1/2020 這樣的8碼格式?
害我都需要每個程式,form點,去設定一次 set date to ANSI
請問:為何逾時不動作後,格式會跑走? |
|
回頂端 |
|
 |
215001
註冊時間: 2003-06-11 文章: 393
第 2 樓
|
發表於: 星期一 十月 05, 2020 9:17 am 文章主題: |
|
|
我的客戶也反應會這樣
有時就是程式開著,然後去開個Excel檔案,或是其他的軟體,再回到我的程式時,日期格式就跑掉了 |
|
回頂端 |
|
 |
CCB2000
註冊時間: 2009-03-25 文章: 97
第 3 樓
|
|
回頂端 |
|
 |
215001
註冊時間: 2003-06-11 文章: 393
第 4 樓
|
發表於: 星期四 十月 08, 2020 9:10 am 文章主題: |
|
|
我的是 VFP8
預設就是 SET SYSFORMATS OFF |
|
回頂端 |
|
 |
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 5 樓
|
發表於: 星期四 十月 08, 2020 3:31 pm 文章主題: |
|
|
set date ansi |
|
回頂端 |
|
 |
CPS0204
註冊時間: 2014-08-24 文章: 475
第 6 樓
|
發表於: 星期四 十月 08, 2020 4:24 pm 文章主題: |
|
|
set date ansi 與 set date to ansi
是一模一樣的指令
都有下了,可是沒用 |
|
回頂端 |
|
 |
張正國
註冊時間: 2003-05-29 文章: 3 來自: 高雄市
第 7 樓
|
發表於: 星期三 二月 17, 2021 5:23 pm 文章主題: |
|
|
我只有在主程式裡面設置
Set DATE TO ANSI
Set CENTURY ON && 9999 四位年
呼叫 Date() 函數,都很正常,從沒發生過日期格式跑掉問題
不管程式開多久了
VFP 9 或 6 都正常
看其它高手有無解決方法 |
|
回頂端 |
|
 |
CPS0204
註冊時間: 2014-08-24 文章: 475
第 8 樓
|
發表於: 星期二 二月 23, 2021 3:20 pm 文章主題: |
|
|
應該與SET SYSFORMATS ON | OFF有關
只好在每支程式,多執行一次 SET SYSFORMATS off |
|
回頂端 |
|
 |
CCB2000
註冊時間: 2009-03-25 文章: 97
第 9 樓
|
|
回頂端 |
|
 |
215001
註冊時間: 2003-06-11 文章: 393
第 10 樓
|
發表於: 星期四 一月 16, 2025 9:46 am 文章主題: |
|
|
8樓 , 9樓 +1
雖然 VFP 預設是: SET SYSFORMATS Off
但是當表單是 [私有工作區] 時,他又會變成 SET SYSFORMATS On ,日期格式就會被系統的格式設定影響到,又變成西元日期
所以建議在每個使用 [私有工作區] 的表單,最好都再設定一次 SET SYSFORMATS Off |
|
回頂端 |
|
 |
CPS0204
註冊時間: 2014-08-24 文章: 475
第 11 樓
|
發表於: 星期五 一月 17, 2025 11:06 am 文章主題: |
|
|
這是我的每個form .ini 都會do set000.prg
set000.prg 如下
SET SYSFORMATS OFF
SET SAFE OFF
SET DELE ON
SET TALK OFF
SET ECHO OFF
SET EXCL OFF
SET CONF OFF
SET DATE ANSI
SET CLOCK OFF
SET CONF ON
SET CENT ON
SET DATE ANSI
SET DECI TO 7
SET MULT ON
SET HOUR TO 24
ZZ_TODAY=DTOC(DATE())
SET STATUS BAR ON
ON KEY
SET ESCAPE OFF
IF '/'$ZZ_TODAY
=MESSAGEBOX('系統錯誤: 您的電腦的日期格式內含有 / 字元,請重登錄一次系統',16,ZZ_BOX)
CLEAR EVENTS
QUIT
ENDIF |
|
回頂端 |
|
 |
|