edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

credtisafe, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-03 10:13:36 +02:00
parent dd225d37fe
commit 2905d7ac0f
7 changed files with 68 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/USTV/usrCntlUSTV.vb
View File

@@ -305,14 +305,14 @@ Public Class usrCntlUSTV
init()
cboJahr.Items.Clear()
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10
For i = 0 To Now().Year - 2005
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next
cboJahr.changeItem(Now.Year - 1)
cboJahrBis.Items.Clear()
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10
For i = 0 To Now().Year - 2005
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next
cboJahrBis.changeItem(Now.Year)