Data sistem

De unde se poate extrage data (si ora) sistemului pentru apute fi folosita intr-un Excel? Nu ma refer la fuctia NOW() care returneaza data din Windows. Aceasta data se poate modifica manual de oricine. Ma intereseaza data reala care nu poate fi modificata manual.

Sau cum pot sa folosesc un fisier Excel pana la o anumita data calendaristica pe care o stabilesc initial si sa-si intrerupa functionarea dupa aceasta dat chiar daca se modifica manual data sistemului?

Multumesc!

Ori pui restrictii pe acea statie sa nu poata modifica utilizatorul data si ora ori iti iei data de pe net de la un serviciu dedicat.

Edited by neagu_laurentiu, 19 August 2020 - 06:31.

sau in VBA cod ce verifica incrementarea crescatoare cu 1 a zilei anterioare..

Data reală oricum poate fi modificată în sistem.
Doar sa pui pass pe BIOS și drepturi limitate la utilizator.
Astfel data nu mai poate fi modificată.

SORINB60, on 19 august 2020 - 06:25, said:

De ce nu intrebi de fapt exact ce vrei, si anume cum creezi un sistem de licentiere ?

Salut!
Dacă:
1. vrei să-ți protejezi fișierul folosind macro-uri VBA și te descurci cu limbajul;
2. nu deranjează dacă va fi obligatorie conectarea la internet a calculatorului respectiv;
atunci poti folosi următoare funcție custom care-ți returnează data curentă pentru România:

Function current_date()
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://worldtimeapi.org/api/timezone/Europe/Bucharest", False: .Send
reqStatus = .Status
If reqStatus = 200 Then getHTTP = StrConv(.responseBody, vbUnicode)
End With
If reqStatus = 200 Then '' is Internet connection Ok
pos = InStr(getHTTP, """datetime"":""") + 12
pos2 = InStr(pos, getHTTP, "T")
current_date = Mid(getHTTP, pos, pos2 - pos)
Else
current_date = "Unavailable"
End If
On Error GoTo 0
'' Response sample: {"abbreviation":"EEST","client_ip":"xx.xx.xx.xx","datetime":"2020-08-19T20:30:04.585226+03:00",
'' "day_of_week":3,"day_of_year":232,"dst":true,"dst_from":"2020-03-29T01:00:00+00:00",
'' "dst_offset":3600,"dst_until":"2020-10-25T01:00:00+00:00","raw_offset":7200,
'' "timezone":"Europe/Bucharest","unixtime":1597858204,
'' "utc_datetime":"2020-08-19T17:30:04.585226+00:00","utc_offset":"+03:00","week_number":34}
End Function

Vezi că în comentarii am pus un exemplu de răspuns complet la interogarea HTTP. Acolo vei găsi și alte lucruri interesante care poate-ți vor fi utile.
Succes!

Multumesc!

Din pacate nu a mers pt ca sunt utilizator de VBA. Ma gandeam ca se poate ceva mai simplu.

Edited by MarianG, 21 August 2020 - 08:40.
quote inutil