modnumtostring.bas

This a complete inventory management system that performs the functions of Purchases, Sales and paym

Attribute VB_Name = "modNumToString"
Option Explicit
Private Function ReadSingle(Number) As String
Dim NDigits(501) As String
NDigits(1) = "One"
NDigits(2) = "Two"
NDigits(3) = "Three"
NDigits(4) = "Four"
NDigits(5) = "Five"
NDigits(6) = "Six"
NDigits(7) = "Seven"
NDigits(8) = "Eight"
NDigits(9) = "Nine"
NDigits(10) = "Ten"
NDigits(11) = "Eleven"
NDigits(12) = "Twelve"
NDigits(13) = "Thirteen"
NDigits(14) = "Fourteen"
NDigits(15) = "Fifteen"
NDigits(16) = "Sixteen"
NDigits(17) = "Seventeen"
NDigits(18) = "Eighteen"
NDigits(19) = "Nineteen"
NDigits(20) = "Twenty"
NDigits(21) = "Twenty One"
NDigits(22) = "Twenty Two"
NDigits(23) = "Twenty Three"
NDigits(24) = "Twenty Four"
NDigits(25) = "Twenty Five"
NDigits(26) = "Twenty Six"
NDigits(27) = "Twenty Seven"
NDigits(28) = "Twenty Eight"
NDigits(29) = "Twenty Nine"
NDigits(30) = "Thirty"
NDigits(31) = "Thirty One"
NDigits(32) = "Thirty Two"
NDigits(33) = "Thirty Three"
NDigits(34) = "Thirty Four"
NDigits(35) = "Thirty Five"
NDigits(36) = "Thirty Six"
NDigits(37) = "Thirty Seven"
NDigits(38) = "Thirty Eight"
NDigits(39) = "Thirty Nine"
NDigits(40) = "Fourty"
NDigits(41) = "Fourty One"
NDigits(42) = "Fourty Two"
NDigits(43) = "Fourty Three"
NDigits(44) = "Fourty Four"
NDigits(45) = "Fourty Five"
NDigits(46) = "Fourty Six"
NDigits(47) = "Fourty Seven"
NDigits(48) = "Fourty Eight"
NDigits(49) = "Fourty Nine"
NDigits(50) = "Fifty"
NDigits(51) = "Fifty One"
NDigits(52) = "Fifty Two"
NDigits(53) = "Fifty Three"
NDigits(54) = "Fifty Four"
NDigits(55) = "Fifty Five"
NDigits(56) = "Fifty Six"
NDigits(57) = "Fifty Seven"
NDigits(58) = "Fifty Eight"
NDigits(59) = "Fifty Nine"
NDigits(60) = "Sixty"
NDigits(61) = "Sixty One"
NDigits(62) = "Sixty Two"
NDigits(63) = "Sixty Three"
NDigits(64) = "Sixty Four"
NDigits(65) = "Sixty Five"
NDigits(66) = "Sixty Six"
NDigits(67) = "Sixty Seven"
NDigits(68) = "Sixty Eight"
NDigits(69) = "Sixty Nine"
NDigits(70) = "Seventy"
NDigits(71) = "Seventy One"
NDigits(72) = "Seventy Two"
NDigits(73) = "Seventy Three"
NDigits(74) = "Seventy Four"
NDigits(75) = "Seventy Five"
NDigits(76) = "Seventy Six"
NDigits(77) = "Seventy Seven"
NDigits(78) = "Seventy Eight"
NDigits(79) = "Seventy Nine"
NDigits(80) = "Eighty"
NDigits(81) = "Eighty One"
NDigits(82) = "Eighty Two"
NDigits(83) = "Eighty Three"
NDigits(84) = "Eighty Four"
NDigits(85) = "Eighty Five"
NDigits(86) = "Eighty Six"
NDigits(87) = "Eighty Seven"
NDigits(88) = "Eighty Eight"
NDigits(89) = "Eighty Nine"
NDigits(90) = "Ninty"
NDigits(91) = "Ninty One"
NDigits(92) = "Ninty Two"
NDigits(93) = "Ninty Three"
NDigits(94) = "Ninty Four"
NDigits(95) = "Ninty Five"
NDigits(96) = "Ninty Six"
NDigits(97) = "Ninty Seven"
NDigits(98) = "Ninty Eight"
NDigits(99) = "Ninty Nine"
NDigits(100) = "One Hundred"
NDigits(101) = "One Hundred One"
NDigits(102) = "One Hundred Two"
NDigits(103) = "One Hundred Three"
NDigits(104) = "One Hundred Four"
NDigits(105) = "One Hundred Five"
NDigits(106) = "One Hundred Six"
NDigits(107) = "One Hundred Seven"
NDigits(108) = "One Hundred Eight"
NDigits(109) = "One Hundred Nine"
NDigits(110) = "One Hundred Ten"
NDigits(111) = "One Hundred Eleven"
NDigits(112) = "One Hundred Twelve"
NDigits(113) = "One Hundred Thirteen"
NDigits(114) = "One Hundred Fourteen"
NDigits(115) = "One Hundred Fifteen"
NDigits(116) = "One Hundred Sixteen"
NDigits(117) = "One Hundred Seventeen"
NDigits(118) = "One Hundred Eighteen"
NDigits(119) = "One Hundred Nineteen"
NDigits(120) = "One Hundred Twenty"
NDigits(121) = "One Hundred Twenty One"
NDigits(122) = "One Hundred Twenty Two"
NDigits(123) = "One Hundred Twenty Three"
NDigits(124) = "One Hundred Twenty Four"
NDigits(125) = "One Hundred Twenty Five"
NDigits(126) = "One Hundred Twenty Six"
NDigits(127) = "One Hundred Twenty Seven"
NDigits(128) = "One Hundred Twenty Eight"
NDigits(129) = "One Hundred Twenty Nine"
NDigits(130) = "One Hundred Thirty"
NDigits(131) = "One Hundred Thirty One"
NDigits(132) = "One Hundred Thirty Two"
NDigits(133) = "One Hundred Thirty Three"
NDigits(134) = "One Hundred Thirty Four"
NDigits(135) = "One Hundred Thirty Five"
NDigits(136) = "One Hundred Thirty Six"
NDigits(137) = "One Hundred Thirty Seven"
NDigits(138) = "One Hundred Thirty Eight"
NDigits(139) = "One Hundred Thirty Nine"
NDigits(140) = "One Hundred Fourty"
NDigits(141) = "One Hundred Fourty One"
NDigits(142) = "One Hundred Fourty Two"
NDigits(143) = "One Hundred Fourty Three"
NDigits(144) = "One Hundred Fourty Four"
NDigits(145) = "One Hundred Fourty Five"
NDigits(146) = "One Hundred Fourty Six"
NDigits(147) = "One Hundred Fourty Seven"
NDigits(148) = "One Hundred Fourty Eight"
NDigits(149) = "One Hundred Fourty Nine"
NDigits(150) = "One Hundred Fifty"
NDigits(151) = "One Hundred Fifty One"
NDigits(152) = "One Hundred Fifty Two"
NDigits(153) = "One Hundred Fifty Three"
NDigits(154) = "One Hundred Fifty Four"
NDigits(155) = "One Hundred Fifty Five"
NDigits(156) = "One Hundred Fifty Six"
NDigits(157) = "One Hundred Fifty Seven"
NDigits(158) = "One Hundred Fifty Eight"
NDigits(159) = "One Hundred Fifty Nine"
NDigits(160) = "One Hundred Sixty"
NDigits(161) = "One Hundred Sixty One"
NDigits(162) = "One Hundred Sixty Two"
NDigits(163) = "One Hundred Sixty Three"
NDigits(164) = "One Hundred Sixty Four"
NDigits(165) = "One Hundred Sixty Five"
NDigits(166) = "One Hundred Sixty Six"
NDigits(167) = "One Hundred Sixty Seven"
NDigits(168) = "One Hundred Sixty Eight"
NDigits(169) = "One Hundred Sixty Nine"
NDigits(170) = "One Hundred Seventy"
NDigits(171) = "One Hundred Seventy One"
NDigits(172) = "One Hundred Seventy Two"
NDigits(173) = "One Hundred Seventy Three"
NDigits(174) = "One Hundred Seventy Four"
NDigits(175) = "One Hundred Seventy Five"
NDigits(176) = "One Hundred Seventy Six"
NDigits(177) = "One Hundred Seventy Seven"
NDigits(178) = "One Hundred Seventy Eight"
NDigits(179) = "One Hundred Seventy Nine"
NDigits(180) = "One Hundred Eighty"
NDigits(181) = "One Hundred Eighty One"
NDigits(182) = "One Hundred Eighty Two"
NDigits(183) = "One Hundred Eighty Three"
NDigits(184) = "One Hundred Eighty Four"
NDigits(185) = "One Hundred Eighty Five"
NDigits(186) = "One Hundred Eighty Six"
NDigits(187) = "One Hundred Eighty Seven"
NDigits(188) = "One Hundred Eighty Eight"
NDigits(189) = "One Hundred Eighty Nine"
NDigits(190) = "One Hundred Ninty"
NDigits(191) = "One Hundred Ninty One"
NDigits(192) = "One Hundred Ninty Two"
NDigits(193) = "One Hundred Ninty Three"
NDigits(194) = "One Hundred Ninty Four"
NDigits(195) = "One Hundred Ninty Five"
NDigits(196) = "One Hundred Ninty Six"
NDigits(197) = "One Hundred Ninty Seven"
NDigits(198) = "One Hundred Ninty Eight"
NDigits(199) = "One Hundred Ninty Nine"
NDigits(200) = "Two Hundred"
NDigits(201) = "Two Hundred One"
NDigits(202) = "Two Hundred Two"
NDigits(203) = "Two Hundred Three"
NDigits(204) = "Two Hundred Four"
NDigits(205) = "Two Hundred Five"
NDigits(206) = "Two Hundred Six"
NDigits(207) = "Two Hundred Seven"
NDigits(208) = "Two Hundred Eight"
NDigits(209) = "Two Hundred Nine"
NDigits(210) = "Two Hundred Ten"
NDigits(211) = "Two Hundred Eleven"
NDigits(212) = "Two Hundred Twelve"
NDigits(213) = "Two Hundred Thirteen"
NDigits(214) = "Two Hundred Fourteen"
NDigits(215) = "Two Hundred Fifteen"
NDigits(216) = "Two Hundred Sixteen"
NDigits(217) = "Two Hundred Seventeen"
NDigits(218) = "Two Hundred Eighteen"
NDigits(219) = "Two Hundred Nineteen"
NDigits(220) = "Two Hundred Twenty"
NDigits(221) = "Two Hundred Twenty One"
NDigits(222) = "Two Hundred Twenty Two"
NDigits(223) = "Two Hundred Twenty Three"
NDigits(224) = "Two Hundred Twenty Four"
NDigits(225) = "Two Hundred Twenty Five"
NDigits(226) = "Two Hundred Twenty Six"
NDigits(227) = "Two Hundred Twenty Seven"
NDigits(228) = "Two Hundred Twenty Eight"
NDigits(229) = "Two Hundred Twenty Nine"
NDigits(230) = "Two Hundred Thirty"
NDigits(231) = "Two Hundred Thirty One"
NDigits(232) = "Two Hundred Thirty Two"
NDigits(233) = "Two Hundred Thirty Three"
NDigits(234) = "Two Hundred Thirty Four"
NDigits(235) = "Two Hundred Thirty Five"
NDigits(236) = "Two Hundred Thirty Six"
NDigits(237) = "Two Hundred Thirty Seven"
NDigits(238) = "Two Hundred Thirty Eight"
NDigits(239) = "Two Hundred Thirty Nine"
NDigits(240) = "Two Hundred Fourty"
NDigits(241) = "Two Hundred Fourty One"
NDigits(242) = "Two Hundred Fourty Two"
NDigits(243) = "Two Hundred Fourty Three"
NDigits(244) = "Two Hundred Fourty Four"
NDigits(245) = "Two Hundred Fourty Five"
NDigits(246) = "Two Hundred Fourty Six"
NDigits(247) = "Two Hundred Fourty Seven"
NDigits(248) = "Two Hundred Fourty Eight"
NDigits(249) = "Two Hundred Fourty Nine"
NDigits(250) = "Two Hundred Fifty"
NDigits(251) = "Two Hundred Fifty One"
NDigits(252) = "Two Hundred Fifty Two"
NDigits(253) = "Two Hundred Fifty Three"
NDigits(254) = "Two Hundred Fifty Four"
NDigits(255) = "Two Hundred Fifty Five"
NDigits(256) = "Two Hundred Fifty Six"
NDigits(257) = "Two Hundred Fifty Seven"
NDigits(258) = "Two Hundred Fifty Eight"
NDigits(259) = "Two Hundred Fifty Nine"
NDigits(260) = "Two Hundred Sixty"
NDigits(261) = "Two Hundred Sixty One"
NDigits(262) = "Two Hundred Sixty Two"
NDigits(263) = "Two Hundred Sixty Three"
NDigits(264) = "Two Hundred Sixty Four"
NDigits(265) = "Two Hundred Sixty Five"
NDigits(266) = "Two Hundred Sixty Six"
NDigits(267) = "Two Hundred Sixty Seven"
NDigits(268) = "Two Hundred Sixty Eight"
NDigits(269) = "Two Hundred Sixty Nine"
NDigits(270) = "Two Hundred Seventy"
NDigits(271) = "Two Hundred Seventy One"
NDigits(272) = "Two Hundred Seventy Two"
NDigits(273) = "Two Hundred Seventy Three"
NDigits(274) = "Two Hundred Seventy Four"
NDigits(275) = "Two Hundred Seventy Five"
NDigits(276) = "Two Hundred Seventy Six"
NDigits(277) = "Two Hundred Seventy Seven"
NDigits(278) = "Two Hundred Seventy Eight"
NDigits(279) = "Two Hundred Seventy Nine"
NDigits(280) = "Two Hundred Eighty"
NDigits(281) = "Two Hundred Eighty One"
NDigits(282) = "Two Hundred Eighty Two"
NDigits(283) = "Two Hundred Eighty Three"
NDigits(284) = "Two Hundred Eighty Four"
NDigits(285) = "Two Hundred Eighty Five"
NDigits(286) = "Two Hundred Eighty Six"
NDigits(287) = "Two Hundred Eighty Seven"
NDigits(288) = "Two Hundred Eighty Eight"
NDigits(289) = "Two Hundred Eighty Nine"
NDigits(290) = "Two Hundred Ninty"
NDigits(291) = "Two Hundred Ninty One"
NDigits(292) = "Two Hundred Ninty Two"
NDigits(293) = "Two Hundred Ninty Three"
NDigits(294) = "Two Hundred Ninty Four"
NDigits(295) = "Two Hundred Ninty Five"
NDigits(296) = "Two Hundred Ninty Six"
NDigits(297) = "Two Hundred Ninty Seven"
NDigits(298) = "Two Hundred Ninty Eight"
NDigits(299) = "Two Hundred Ninty Nine"
NDigits(300) = "Three Hundred"
NDigits(301) = "Three Hundred One"
NDigits(302) = "Three Hundred Two"
NDigits(303) = "Three Hundred Three"
NDigits(304) = "Three Hundred Four"
NDigits(305) = "Three Hundred Five"
NDigits(306) = "Three Hundred Six"
NDigits(307) = "Three Hundred Seven"
NDigits(308) = "Three Hundred Eight"
NDigits(309) = "Three Hundred Nine"
NDigits(310) = "Three Hundred Ten"
NDigits(311) = "Three Hundred Eleven"
NDigits(312) = "Three Hundred Twelve"
NDigits(313) = "Three Hundred Thirteen"
NDigits(314) = "Three Hundred Fourteen"