Limited Time Programs

[Steffan-68]

I would write it in the program like this is even smaller.

Code: (Select All)

'Print Date$
month$ = Left$(Date$, 2): M = Val(month$)
day$ = Mid$(Date$, 4, 2): D = Val(day$)
day$ = Str$(D) ' eliminate any leading zeros
year$ = Right$(Date$, 4): Y = Val(year$)

Print "Test Zeitraum betr„gt 30 Tage" 'Vom 6,2,2023 bis 19,3,2023
'Print D
'Print M
'Print Y
Tage = 30
If Y > 2023 Then System
If M > 3 Then System
If D > 6 And M = 2 Then Tage = Tage - D + 6
If D < 6 And M > 2 Then Tage = Tage - 17 - D
If D >= 6 And M > 2 Then Tage = Tage - 23 - D

Print "Sie haben noch "; Tage; " Tage Demozeit"
If Tage <= 0 Then
    Print " Ihr Testzeitraum ist abgelaufen"
    Sleep
    System
End If
Print " Viel Spass"