Detail: VBS-Makro - Wochentag ermitteln

18.05.2009 - VBS-Makro - Wochentag ermitteln

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.18
' An dieser Stelle wird der Wochentag des Termins ermittelt
If Not ActiveAddress.Fields("Termin_Datum").Value = Empty Then
Dim sDate, sWDay
sDate = ActiveAddress.Fields("Termin_Datum").Value
sWDay = WeekdayName(Weekday(CDate(sDate), vbSunday), , vbSunday)
ActiveAddress.Fields("Termin_Tag").Value = sWDay
End If

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl