Hi leutz bin neu hier und kenne mich schlecht
Wollt fragen wie es möglich ist bei vb feiertage abzziehen.
Wochenende hab ich da schon irgendwie drin , klappt auch ^^.
hab gehört das ich ne liste erstellen soll und dann ne abfrage zu dem zeitraum von bis machen soll.
falls dann diese abfrage true ausfällt soll -1 des ergebnisses gerechnet werden.
Könnte mir jemand nen konkretes beispiel fürn 1.11.2010 geben??
hab gelesen ich soll irgendwie das intevall abfragen und wenn dannn das datum auftaucht soll er den -1 abziehen.
wäre echt dankbar
Das der code den ich bis jetzt habe :
[/code]
Wollt fragen wie es möglich ist bei vb feiertage abzziehen.
Wochenende hab ich da schon irgendwie drin , klappt auch ^^.
hab gehört das ich ne liste erstellen soll und dann ne abfrage zu dem zeitraum von bis machen soll.
falls dann diese abfrage true ausfällt soll -1 des ergebnisses gerechnet werden.
Könnte mir jemand nen konkretes beispiel fürn 1.11.2010 geben??
hab gelesen ich soll irgendwie das intevall abfragen und wenn dannn das datum auftaucht soll er den -1 abziehen.
wäre echt dankbar
Das der code den ich bis jetzt habe :
Visual Basic-Quellcode
- [code]Public Sub CTRL73_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
- Dim node_von As XPathNavigator = _
- MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:Datumsdifferenz/my:datum_von", NamespaceManager)
- Dim node_bis As XPathNavigator = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:Datumsdifferenz/my:datum_bis", NamespaceManager)
- Dim node_diff As XPathNavigator = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:Datumsdifferenz/my:differenz_tage", NamespaceManager)
- If node_von.Value.Length > 0 And node_bis.Value.Length > 0 Then
- Try
- Dim d_von, d_bis As Date
- d_von = Convert.ToDateTime(node_von.Value)
- d_bis = Convert.ToDateTime(node_bis.Value)
- Dim nDays As Long
- nDays = d_bis.Subtract(d_von).Days + 1
- Dim differenz_tage As String
- differenz_tage = IIf(nDays \ 7 > 0, _
- nDays - (nDays \ 7) * 2, nDays) - _
- IIf(Weekday(d_von, vbMonday) - 1 + nDays Mod 7 < 6, 0, _
- IIf(Weekday(d_von, vbMonday) - 1 + nDays Mod 7 = 6, 1, 2))
- node_diff.SetValue(differenz_tage)
- If node_diff.MoveToAttribute("nil", " http://www.w3.org/2001/XMLSchema-instance") Then
- node_diff.DeleteSelf()
- End If
- Catch ex As Exception
- 'keine Aktion, Berechnung abbrechen
- End Try
- End If
- End Sub
- End Class
- End Namespace