Public Function DateTo3CharString( _ ByVal vDate As Variant _ ) As Variant
DateTo3CharString(#2/13/92#) = "2BD" DateTo3CharString(#2/14/92#) = "2BE" DateTo3CharString(#5/30/94#) = "4EU" DateTo3CharString(#5/30/84#) = "4EU"See also:
DateTo4CharString Function DateTimeTo8CharString FunctionReturn value: The return value is composed of:
1) the last digit of the year (0..9) 2) the month represented by a letter (A..L) 3) the day represented by an alphanumeric (1..9, A..V)vDate: The date which is returned as a three-character string. Function returns Null if vDate is Null or cannot be fixed up to a Date.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.