VBA gebruiken in Nicelabel

dim Maand, Dag, THT, lengte

CurrentDate = DatePart("yyyy",Now()) & _
Right ("0" & DatePart("m",Now()), 2) & _
Right ("0" & DatePart("d",Now()), 2)

MyDate = DateAdd("d", -1, Productiedatum)
'-1 betekent dat je productie datum minimaal overmorgen is
'0 betekent dat je productie datum minimaal morgen is

UserDate = DatePart("yyyy",MyDate) & _
Right ("0" & DatePart("m",MyDate), 2) & _
Right ("0" & DatePart("d",MyDate), 2)

If UserDate <= CurrentDate Then
MsgBox ("Date is not correct")
Maand=13
Else
THT=DateAdd("d",0,[Display Until])
Maand=Month(THT)
Dag=Day(THT)

Dag=LCase(Dag)

lengte=len(Dag)

If lengte = "1" Then
Dag="0" + Dag
Else
Dag = Dag
End if
End If


Select Case Maand
Case "1"
Result=Dag+"/01/"
Case "2"
Result=Dag+"/02/"
Case "3"
Result=Dag+"/03/"
Case "4"
Result=Dag+"/04/"
Case "5"
Result=Dag+"/05/"
Case"6"
Result=Dag+"/06/"
Case"7"
Result=Dag+"/07/"
Case"8"
Result=Dag+"/08/"
Case"9"
Result=Dag+"/09/"
Case"10"
Result=Dag+"/10/"
Case"11"
Result=Dag+"/11/"
Case"12"
Result=Dag+"/12/"
Case "13"
Result="WRONG DATE PRINTED"
End Select

Klik om te vergroten...