GET date from web page

[sal21]

GitHub - gnekt/geolocalizzazione-comuni-italiani: [Geolocalizzazione comuni italiani] Csv che comprende le informazioni di posizionamento geografico in latitudine e longitudine di tutti i comuni italiani

[Geolocalizzazione comuni italiani] Csv che comprende le informazioni di posizionamento geografico in latitudine e longitudine di tutti i comuni italiani - GitHub - gnekt/geolocalizzazione-comuni-i...

github.com

Based this link i need to get the update date in image attached.
Tks.

 

[Dan_W]

What do you mean by the "update date"? Github has an API you can query for each repository which returns all manner fo stats and details about the repo - it just depends on what you're after. Also what you tried?

 

[sal21]

Tried... no idea, first experience on that
Get only the date, in image. tks

 

[Dan_W]

Tried... no idea, first experience on that
Get only the date, in image. tks

Tried what?

 

[Dan_W]

Does this have anything to do with the all the help others have given you? I note that @BennyBatt kindly provided you some code in respect of your request for help to download a CSV from the above Github repo to which you never responded. This isn't a free coding service, sorry. Good luck.

 

[sal21]

SORRY for that!
Maybe I didn't see the email with the reply...
I see now the code. I test now!

 

[Dan_W]

Sigh.. curiosity got the better of me. Here you go:

Public Sub GetGithubUpdate()
    Dim URL As String
    URL = "https://api.github.com/repos/gnekt/geolocalizzazione-comuni-italiani"
    MsgBox GetDetails(URL, "updated_at")
End Sub

Public Function GetDetails(ByVal URL As String, Optional ByVal JSONField As String = "updated_at") As Date
    Dim JSON As String, UpdatedAt As Variant, UpdatedDate As Date
    JSON = Application.WebService(URL)
    UpdatedAt = Split(Split(JSON, JSONField & Chr(34) & ":" & Chr(34))(1), Chr(34))(0)
    UpdatedDate = CDate(Split(UpdatedAt, "T")(0))
    GetDetails = UpdatedDate
End Function

 

[sal21]

GREAT!
Tks, bro.

 

[sal21]

Sigh.. curiosity got the better of me. Here you go:

Public Sub GetGithubUpdate()
    Dim URL As String
    URL = "https://api.github.com/repos/gnekt/geolocalizzazione-comuni-italiani"
    MsgBox GetDetails(URL, "updated_at")
End Sub

Public Function GetDetails(ByVal URL As String, Optional ByVal JSONField As String = "updated_at") As Date
    Dim JSON As String, UpdatedAt As Variant, UpdatedDate As Date
    JSON = Application.WebService(URL)
    UpdatedAt = Split(Split(JSON, JSONField & Chr(34) & ":" & Chr(34))(1), Chr(34))(0)
    UpdatedDate = CDate(Split(UpdatedAt, "T")(0))
    GetDetails = UpdatedDate
End Function

View attachment 100352

curiosity...which editor you use to have black background, and blue for statement?
the code is very simple to read.

 

[Dan_W]

Thats the normal VBA ide. I've just customised the colours in the settings. There aren't alot of colors available, but it's worth it.