初始化日期格式

Question

我正在从文件中读取生日。它们的格式为 2-Aug-83, 11-Jun-03。有没有办法读取这些内容并将格式更改为默认的 DD/MM/YYYY？这就是想法，但显然它在语法上并不有效。我在网上发现很少有关于使用日期掩码的信息，每次遇到数据中的非默认日期格式时，它都会让我感到困惑。 （我希望我能做出更有力的尝试，但我不知道如何开始。）

这是我想做的事情的想法：

DEFINE VARIABLE dBirthday AS DATE FORMAT "DD-MON-YY".

dBirthday = 2-AUG-80.

DISPLAY dBirthday FORMAT "DD/MM/YYYY".

Answer 1

您可能最好将其作为字符变量读取，然后将其解析为 Openedge 日期格式。

所以这个

dBirthday = 2-AUG-80.

不起作用，因为这不是日期格式的工作方式。你可以按照以下方式做一些事情

dBirthday = fParseOracleDate("2-AUG-80").

FUNCTION fParseOracleDate RETURNS DATE (cDate AS CHARACTER):
   DEF VAR iMonth AS INT.
   CASE ENTRY(2, cDate, '-'):
      WHEN 'Jan' THEN ASSIGN iMonth = 1.
      /* all months here */
   END CASE.
   RETURN DATE(iMonth, INT(ENTRY(1, cDate,'-')), INT(ENTRY(3, cDate, '-'))).
END FUNCTION.

抱歉，代码很草率，是在我的手机上输入的。