RFC2822 Datetime から、タイムスタンプへ変換。

詳細
カテゴリ: FileMaker Custom Function
参照数: 404

RFC2822 Date and time フォーマットから、FileMakerのタイムスタンプへ変換。

function(関数):
GetDateTimeFromRFC2822( Date_RFC )
Sample input(入力例):
GetDateTimeFromRFC2822( "Sat, 25 Jan 2020 12:46:06 +0900" )
Sample output(出力例):
2020/01/25 12:46:06
formula(式): 

Let([
   $dataValue = Substitute ( Date_RFC ; " " ; ¶ ) ;
   $MAX = ValueCount ( $dataValue );
   $n=1;
   $Res ="";
   $fnc=
      "Case ( ($n > $MAX) or  not IsEmpty ( $Res ) ; $Res ;

         Let([
            _M=GetValue ( $dataValue ; $n );
            $Res = Case ( 
                 _M= \"Jan\"; 1 ; 
                  _M= \"Feb\"; 2 ; 
                  _M= \"Mar\"; 3 ; 
                  _M= \"Apr\"; 4 ; 
                  _M= \"May\"; 5 ; 
                  _M= \"Jun\"; 6 ; 
                  _M= \"Jul\"; 7 ; 
                  _M= \"Aug\"; 8 ; 
                  _M= \"Sep\"; 9 ; 
                  _M= \"Oct\" ; 10 ;
                  _M= \"Nov\" ; 11 ;
                  _M= \"Dec\" ; 12
                  ; \"\" )  ;
            $n=$n+1
         ];
            Evaluate($fnc))
      )";
   $M=Evaluate($fnc);
   $n=$n-1;
   $D=GetValue ( $dataValue ; $n -1);
   $Y=GetValue ( $dataValue ; $n +1);
   $date=Date ( $M ; $D ; $Y );
   $time=GetValue ( $dataValue ; $n +2)
];
   Timestamp ( $date ; $time )
)