DateSerial Function

From Office VBScript