Hallo,
ich hätte da gern mal wieder ein Problem.
Ein Agent startet in einer Bibliothek nachstehenden Code und übergibt dabei den ViewNamen und einen Offset mit Wert 4.
Das läuft auch alles soweit gut, bis auf...
vc.Title =Format$(Datum,"dd")
das Datum habe ich zuvor durch
Datum = Format$(Today()+ daycount,"Short Date")
korrekt übergeben, da stimmt es noch (21.09.2009)
Die Zeile
vc.Title =Format$(Datum,"dd")
gibt mir aber einen falschen Wert, hier "31"
Ich habe mir mal den Wert als "d-mmmm" geben lassen,
da erhalte ich dann den Wert "31.Dezember"
hier der Code aus der Bibliothek:
Sub UpdateColumnHeaders( NameOfView As String,Offset As Integer ) 'Offset wird mit 4 übergeben
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewColumn
Dim Datum As Variant
Dim count As Integer
Dim daycount As Integer
Dim VarColor As String
Set db = session.CurrentDatabase
Set view = db.GetView(NameOfView)
count = View.ColumnCount
daycount = (count-offset)/2 - 1
Do Until count = offset
Set vc = view.Columns(count-1)
Datum = Format$(Today()+ daycount,"Short Date")
vc.FontFace = "Webdings"
vc.Alignment = VC_ALIGN_CENTER
vc.FontPointSize = 16
vc.HeaderFontPointSize = 10
vc.HeaderFontStyle = VC_FONT_BOLD
vc.HeaderAlignment = VC_ALIGN_CENTER
Select Case Weekday(Datum)
Case 1 : vc.HeaderFontColor = COLOR_RED
Case 7 : vc.HeaderFontColor = COLOR_DARK_YELLOW
Case Else :vc.HeaderFontColor = COLOR_BLACK
End Select
vc.Title =Format$(Datum,"dd")
vc.Width = 1
count =count -1
daycount = daycount -1
Loop
Wo zum Teufel ist dann hier der Fehler.
Bin für jeden Tipp dankbar.
Gruß
Harald