<%
'تحويل الشهر إلى اللغة الصينية
الدالة MonthToCH(TheMonth)
خافت مم
mm=split("واحد، اثنان، ثلاثة، أربعة، خمسة، ستة، سبعة، ثمانية، تسعة، عشرة، أحد عشر، اثني عشر"،"")
إذا كان IsNumeric(TheMonth) إذن
MonthToCH = mm(TheMonth-1) و"الشهر"
آخر
MonthToCH = "الشهر"
نهاية إذا
وظيفة النهاية
'تحويل الشهر إلى اللغة الإنجليزية الطويلة
وظيفة MonthToLongEN(TheMonth)
خافت مم
mm=split("يناير,فبراير,مارس,أبريل,مايو,يونيو,يوليو,أغسطس,سبتمبر,أكتوبر,نوفمبر,ديسمبر"،"")
إذا كان IsNumeric(TheMonth) إذن
MonthToLongEN = مم(TheMonth-1)
آخر
MonthToLongEN = " "
نهاية إذا
وظيفة النهاية
'تحويل الشهر إلى اللغة الإنجليزية القصيرة
وظيفة MonthToShortEN(TheMonth)
خافت مم
mm=split("يناير، فبراير، مارس، أبريل، مايو، يونيو، يوليو، أغسطس، سبتمبر، أكتوبر، نوفمبر، ديسمبر"،،")
إذا كان IsNumeric(TheMonth) إذن
MonthToShortEN = مم(TheMonth-1)
آخر
MonthToShortEN = " "
نهاية إذا
وظيفة النهاية
%>