Visual Basic Forum

alb18ken · Newbie Anmeldedatum: 07.10.2010 Beiträge: 2

Hi leutz bin neu hier und kenne mich schlecht Sad

Wollt fragen wie es möglich ist bei vb feiertage abzziehen.
Wochenende hab ich da schon irgendwie drin Razz

, 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 - des ergebnisses gerechnet werden.

Könnte mir jemand nen konkretes beispiel fürn 1.11.2010 geben??
wäre echt dankbar
Das der code den ich bis jetzt habe :

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

thx

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hmm
schau vl hilft dir das weiter
http://www.vbarchiv.net/tipps/details.php?id=1064
lg

alb18ken · Newbie Anmeldedatum: 07.10.2010 Beiträge: 2

naja wirklich geholfen hat das nicht Sad

. will ja die feiertage nicht berechnen.

hab die feiertage erstmal in ne tabelle eingetragen.

wenn bei einer differenz eines dieser daten auftaucht soll der mir sofort -1 bei der differenz ausgeben.

das muss ich irgendwie nur noch in richtiger Syntax verfassen, weis aber nicht wie Sad

hab irgendwo was gelesen mit value length und da soll dann nen sql gemacht werden für das intervall und dann das rechnen -1 da hin.

ich kann das nicht ><

trotzdem thx ^^

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

du könntest noch versuchen deine frage in einem anderen forum zu stellen

vb-paradise.de
dort sind sehr viele coder und da kann dir sicher geholfen werden
lg