Question

我正试图找到一种用自然编程语言翻转日期的方法。

我所拥有的是#DOB，它等于19700830 yyyymmdd，我需要它是mmddyyyy。在Natural中有一种简单的方法吗？

问题：如何将日期翻到最简单，最简单的格式自然的有效方式？

代码：

    RESET #NAME(A21/25) 
          #ROLE(A7/25) 
          #DOB(A10) 
          #I(P3)    
          #ADC(A1/25) 
          #SSN(A9)

我已经尝试使用FOR循环来获取我的结果，但是它很笨重而且还没有编译。它充其量只是笨重。

    FOR INDEX(P3) FROM 1 TO 8
       IF INDEX >= 1 AND INDEX <= 4
          #YYYY = #DOB(INDEX) 

       IF INDEX >= 5 AND INDEX <= 6
          #MM = #DOB(INDEX) 

       IF INDEX >= 7 AND INDEX <= 7
          #DD = #DOB(INDEX) 
    LOOP

这是我想做的，但我不完全确定它会起作用。我认为有一种更好的方法，但我没有任何关于语言的真正好的书籍，而且我不经常这样做。一年一次或两次，这对我来说是新的。

Answer 1

最简单的方法是重新定义你的变量，然后移动并使用重新定义的部分。

    DEFINE   #DOB(A10) 
    REDEFINE #DOB(#Y(A4) #M(A2) #D(A2))

然后你就可以使用这件作品并按照你想要的方式移动它。

    WRITE WORK FILE 2 #M ',' #D ',' #Y

在自然编程语言变量上交换日期？

1 个答案: