66 lines
2.2 KiB
VB.net
66 lines
2.2 KiB
VB.net
Public Class frmKasseBerichtVonBis
|
|
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year).AddMonths(-1)
|
|
Dim JAHR As Date = CDate("01.01." & Now.Year)
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub frmKasseBerichtVonBis_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
initBtns("")
|
|
End Sub
|
|
|
|
Sub initBtns(MonatJahr)
|
|
btnMonat.Text = MONAT.ToString("MMM yy")
|
|
btnJahr.Text = JAHR.Year
|
|
Select Case MonatJahr
|
|
Case "Monat"
|
|
datVon.Value = MONAT
|
|
datBis.Value = MONAT.AddMonths(1).AddDays(-1)
|
|
Case "Jahr"
|
|
If cbxGeschaftsjahr.Checked Then
|
|
datVon.Value = JAHR.AddMonths(1)
|
|
datBis.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
|
|
Else
|
|
datVon.Value = JAHR
|
|
datBis.Value = JAHR.AddYears(1).AddDays(-1)
|
|
End If
|
|
Case ""
|
|
datVon.Value = ("01." & Now.Month & "." & Now.Year)
|
|
datBis.Value = Now
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
|
|
MONAT = MONAT.AddMonths(-1)
|
|
initBtns("Monat")
|
|
End Sub
|
|
|
|
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
|
|
MONAT = MONAT.AddMonths(1)
|
|
initBtns("Monat")
|
|
End Sub
|
|
|
|
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
|
|
JAHR = JAHR.AddYears(-1)
|
|
initBtns("Jahr")
|
|
End Sub
|
|
|
|
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
|
|
JAHR = JAHR.AddYears(1)
|
|
initBtns("Jahr")
|
|
End Sub
|
|
|
|
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
|
|
initBtns("Monat")
|
|
End Sub
|
|
|
|
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
|
|
initBtns("Jahr")
|
|
End Sub
|
|
|
|
Private Sub cbxGeschaftsjahr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGeschaftsjahr.CheckedChanged
|
|
initBtns("Jahr")
|
|
End Sub
|
|
End Class |