Hallo
Ich bin bei einem blöden Problem angelangt
Ich versuche ein Programm zur berechnung der In einer woche zu viel gearbeiteten stunden zu erstellen und stecke nun
Bis jz bin ich soo weit
Hierbei wird von Jan2_1 bis Jan2_6 ein tag berechnet, in jan2_1 der beginn der arbeitszeit, in Jan2_2 das ende der arbeitszeit, Jan 2_3 enthält die pause und in Jan2_4 werden die am tag gearbeiteten stunden berechnet, in den checkboxen chJan2_5 und chJan_2_6 wird ein urlaub oder feiertag eingetragen falls einer ist.
nun möchte ich einer seits die zahlen hinter Jan mit einer oder mehrerer schleifen hochzählen und das jan selbst nach allen tages des monats Jänner dann durch eine weitere schleife und ein array nach feb usw.. ändern
nun möchte ich mal wissen ob das überhaupt möglich ist und wenn ja wie
hier benötige ich nun eure hilfe
danke schon mal im voraus
Kohlerwertl
Ich bin bei einem blöden Problem angelangt
Ich versuche ein Programm zur berechnung der In einer woche zu viel gearbeiteten stunden zu erstellen und stecke nun
Bis jz bin ich soo weit
VB.NET-Quellcode
- Public Class Stundentafel
- Dim Jan2_1 As String
- Dim Jan2_1Date As String
- Dim Jan2_2 As String
- Dim Jan2_2Date As String
- Dim Jan2_3 As String
- Dim Jan2_4 As String
- Dim Jan2_5 As String
- Dim Jan2_6 As String
- Dim lngMin As Long
- Dim lngStd As Long
- Dim Jan3_1 As String
- Dim Jan3_1Date As String
- Dim Jan3_2 As String
- Dim Jan3_2Date As String
- Dim Jan3_3 As String
- Dim Jan3_4 As String
- Dim Jan3_5 As String
- Dim Jan3_6 As String
- Dim lngMin1 As Long
- Dim lngStd1 As Long
- Dim i As Integer
- Private Sub zaJan2_4_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gJan2_4.GotFocus
- Jan2_1Date = Format$(Now, "m-d-yy")
- lngMin = DateDiff("n", Jan2_1, Jan2_2)
- Jan2_3 = Jan2_3 * 60
- lngMin = lngMin - Jan2_3
- lngStd = Int(lngMin / 60)
- lngMin = lngMin - (lngStd * 60)
- gJan2_4.Text = Format$(lngStd, "00") & ":" & Format$(lngMin, "00")
- End Sub
- Private Sub azJan2_1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles azJan2_1.TextChanged
- Jan2_1 = azJan2_1.Text
- End Sub
- Private Sub azJan2_2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles azJan2_2.TextChanged
- Jan2_2 = azJan2_2.Text
- End Sub
- Private Sub pJan2_3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pJan2_3.TextChanged
- Jan2_3 = pJan2_3.Text
- End Sub
- Private Sub chJan2_5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chJan2_5.CheckedChanged
- Jan2_5 = chJan2_5.Checked
- End Sub
- Private Sub chJan2_6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chJan2_6.CheckedChanged
- Jan2_6 = chJan2_6.Checked
- End Sub
- End Class
Hierbei wird von Jan2_1 bis Jan2_6 ein tag berechnet, in jan2_1 der beginn der arbeitszeit, in Jan2_2 das ende der arbeitszeit, Jan 2_3 enthält die pause und in Jan2_4 werden die am tag gearbeiteten stunden berechnet, in den checkboxen chJan2_5 und chJan_2_6 wird ein urlaub oder feiertag eingetragen falls einer ist.
nun möchte ich einer seits die zahlen hinter Jan mit einer oder mehrerer schleifen hochzählen und das jan selbst nach allen tages des monats Jänner dann durch eine weitere schleife und ein array nach feb usw.. ändern
nun möchte ich mal wissen ob das überhaupt möglich ist und wenn ja wie
hier benötige ich nun eure hilfe
danke schon mal im voraus
Kohlerwertl