VBScriptのDatepart関数の挙動が想定と異なる現象について

Question

概要

VBScriptで記載されたコードをJavaScriptに変換する作業をしているのですが、
そこで使用されている「Datepart()」関数の挙動が私が想定していた結果と異なっており、
調査をしても回答がネット上に見当たらなかったため質問させていただきます。

詳細

##　実行環境
paiza株式会社の下記のサイトを利用しています。
https://paiza.io/ja/projects/new

検証内容

public class compiler
  shared function Main as integer
' Your code here!
        Console.WriteLine(datepart("q",New DateTime(2021, 01, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 02, 02, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 03, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 04, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 05, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 06, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 07, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 08, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 09, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 10, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 11, 01, 20, 30, 15)))
        Console.WriteLine(datepart("q",New DateTime(2021, 12, 01, 20, 30, 15)))
    return 0
  End function
end class

実行結果----------------------------------------------------------------
1
2
2
2
2
2
3
3
3
4
4
4

---

想定していた結果

   Console.WriteLine(datepart("q",New DateTime(2021, 02, 02, 20, 30, 15)))
   '→1
   Console.WriteLine(datepart("q",New DateTime(2021, 03, 01, 20, 30, 15)))
   '→1

参考サイト

• https://www.kanaya440.com/contents/script/vbs/function/string/mid.html

上記のコードの実行結果は'1'となると思っていました。
この実行結果となる理由を教えていただきたいです。

Answer 1

ツール「Visual Studio」を使用しての動作確認(VB.net)もしましたが、
結果は、下記になりました。

        Console.WriteLine(DatePart("q", DateSerial(2021, 1, 1)))
　　　　'→1
        Console.WriteLine(DatePart("q", DateSerial(2021, 2, 1)))
　　　　'→1
        Console.WriteLine(DatePart("q", DateSerial(2021, 3, 1)))
　　　　'→1

環境依存ということはわかりましたが、
差異の原因は現時点だと不明のままです。

Answer 2

ちゃんとした環境で実行せず、paizaで実行しての結果と言うことなら、paiza側の問題では？
ちゃんとした環境で実行しましょう。

Comments

[begin2016]

ご回答ありがとうございます。
paiza以外のオンライン実行環境においても、発生していたので、
実行環境による挙動の違いは無いのではないかと判断していましたが、
助言の通り、ローカル環境での実施をすることにします。

他サイト：https://www.onlinegdb.com/online_vb_compiler

[otn]

手近にWindows環境がないのでしょうか？VBScriptだと、想定通りですね。
For i = 1 To 12
WScript.Echo i, Datepart("q",DateSerial(2021, i, 01))
Next

[begin2016]

コードの提供ありがとうございます。
windows端末での実行においては、otnさんがおっしゃる通りの想定通りの挙動を確認しました。
実際にコードが実行される機器のタイムゾーンなのかはわかりませんが、挙動が変わることはわかりました。（※この可能性には期待できませんが、、、）

引き続き調査することにします。

[otn]

時差は1日未満なので、関係ないですね。