Here's a simple Calc tunning in Basic

Pertsa · August 4, 2026, 5:17pm

This offers a touch of the world of the stock market in the colors of the Swedish flag.
.UPDATED:
StockholmBörsen.ods (15.3 KB)

There was a time fix in IsBetween function. The time.io.api time was 20 minutes late, but now fixed as well as their certification has been updated.

Function IsBetween(stockholmTime As Date) As Boolean 
    
    Dim currentTime As Date
    Dim startTime As Date
    Dim endTime As Date
    currentTime = TimeValue(stockholmTime)
    startTime = TimeValue("08:40:00")
    endTime = TimeValue("17:10:00")
    'startTime = TimeValue("09:00:00") ' These are now working as they should.
    'endTime = TimeValue("17:30:00")
    
    IsBetween = (currentTime >= startTime And currentTime <= endTime)

End Function