意外とムチャが効くyyyymmdd

とあるサイトのＵＲＬについて、指定日のページはこのようになっている。

https://*****/2020/10/2020-1028.html

今日は、これを如何にして取得したか、というお話。

上記を分解すると、こうなっている。

赤が、可変の部分になる。

これを昔の私だったら多分、こう書いて求めただろう。
※かつて勘違いしていた部分も含め、正確に再現。

Sub Sample1()
    Dim 年, 月, 日 As Integer
        年 = Year(Date)
        月 = Month(Date)
        日 = Day(Date)
        
    Dim URL As String
        URL = "https://*****/" & 年 & "/" & 月 & "/" & 年 & "-" & 月 & 日 & ".html"
        Debug.Print URL
End Sub

結果は、以下のとおり。

しかし実際は、月や日が一けたの時どうするか悩み、その挙句に派手な条件分岐で求めていたことだろう。

最近は多少知恵がついたので、こんな感じだ。

Public Property Get URL() As String
    URL = "https://*****/" & Format(Date, "yyyy/mm/yyyy-mmdd") & ".html"
End Property

恐らく昔なら、「何度も年月を表示させることは出来ない」という思い込みから、このような表現には至らなかったと思う。何度も表示可能だなんて、意外とムチャが効くのね。

そして更にもっと良い方法が、実はきっとあるに違いない。
今は未だ、分らないけれど。

参考まで。