lunartbl.inc

主要介绍超市管理系统的后台系统,后台程序是系统初始化和系统维护最常使用的一部分程序,主要任务是建产基本数据,进出货盘点和打印报表.后台程序主要负责的都是管理上的功能,当后台建立完整的数据后,前台才能顺

var
  LunarYear: TLunarYear =
  { 60 entries, repeat every 60 years }
  ( '',     //  0
    '甲子', //  1
    '乙丑', //  2
    '丙寅', //  3
    '丁卯', //  4
    '戊辰', //  5
    '己巳', //  6
    '庚午', //  7
    '辛未', //  8
    '壬申', //  9
    '癸酉', // 10
    '甲戌', // 11
    '乙亥', // 12
    '丙子', // 13
    '丁丑', // 14
    '戊寅', // 15
    '己卯', // 16
    '庚辰', // 17
    '辛巳', // 18
    '壬午', // 19
    '癸未', // 20
    '甲申', // 21
    '乙酉', // 22
    '丙戌', // 23
    '丁亥', // 24
    '戊子', // 25
    '己丑', // 26
    '庚寅', // 27
    '辛卯', // 28
    '壬辰', // 29
    '癸巳', // 30
    '甲午', // 31
    '乙未', // 32
    '丙申', // 33
    '丁酉', // 34
    '戊戌', // 35
    '己亥', // 36
    '庚子', // 37
    '辛丑', // 38
    '壬寅', // 39
    '癸卯', // 40
    '甲辰', // 41
    '乙巳', // 42
    '丙午', // 43
    '丁未', // 44
    '戊申', // 45
    '己酉', // 46
    '庚戌', // 47
    '辛亥', // 48
    '壬子', // 49
    '癸丑', // 50
    '甲寅', // 51
    '乙卯', // 52
    '丙辰', // 53
    '丁巳', // 54
    '戊午', // 55
    '己未', // 56
    '庚申', // 57
    '辛酉', // 58
    '壬戌', // 59
    '癸亥'  // 60
  );        

  LunarLookup: TLunarLookup =
    { start of lunar month (gregorian year,day,month), 
      lunar year, 
      month number,
      days in month }
    { year,day,mth, ly, lm, dim }

    ( (GregYear:1912; Gregday:18; GregMonth: 2; LunarYear:49; LunarMonth: 1; LunarDay:30),
      (GregYear:1912; Gregday:19; GregMonth: 3; LunarYear:49; LunarMonth: 2; LunarDay:29),
      (GregYear:1912; Gregday:17; GregMonth: 4; LunarYear:49; LunarMonth: 3; LunarDay:30),
      (GregYear:1912; Gregday:17; GregMonth: 5; LunarYear:49; LunarMonth: 4; LunarDay:29),
      (GregYear:1912; Gregday:15; GregMonth: 6; LunarYear:49; LunarMonth: 5; LunarDay:29),
      (GregYear:1912; Gregday:14; GregMonth: 7; LunarYear:49; LunarMonth: 6; LunarDay:30),
      (GregYear:1912; Gregday:13; GregMonth: 8; LunarYear:49; LunarMonth: 7; LunarDay:29),
      (GregYear:1912; Gregday:11; GregMonth: 9; LunarYear:49; LunarMonth: 8; LunarDay:29),
      (GregYear:1912; Gregday:10; GregMonth:10; LunarYear:49; LunarMonth: 9; LunarDay:30),
      (GregYear:1912; Gregday: 9; GregMonth:11; LunarYear:49; LunarMonth:10; LunarDay:30),
      (GregYear:1912; Gregday: 9; GregMonth:12; LunarYear:49; LunarMonth:11; LunarDay:29),
      (GregYear:1913; Gregday: 7; GregMonth: 1; LunarYear:49; LunarMonth:12; LunarDay:30),
      (GregYear:1913; Gregday: 6; GregMonth: 2; LunarYear:50; LunarMonth: 1; LunarDay:30),
      (GregYear:1913; Gregday: 8; GregMonth: 3; LunarYear:50; LunarMonth: 2; LunarDay:30),
      (GregYear:1913; Gregday: 7; GregMonth: 4; LunarYear:50; LunarMonth: 3; LunarDay:29),
      (GregYear:1913; Gregday: 6; GregMonth: 5; LunarYear:50; LunarMonth: 4; LunarDay:30),
      (GregYear:1913; Gregday: 5; GregMonth: 6; LunarYear:50; LunarMonth: 5; LunarDay:29),
      (GregYear:1913; Gregday: 4; GregMonth: 7; LunarYear:50; LunarMonth: 6; LunarDay:29),
      (GregYear:1913; Gregday: 2; GregMonth: 8; LunarYear:50; LunarMonth: 7; LunarDay:30),
      (GregYear:1913; Gregday: 1; GregMonth: 9; LunarYear:50; LunarMonth: 8; LunarDay:29),
      (GregYear:1913; Gregday:30; GregMonth: 9; LunarYear:50; LunarMonth: 9; LunarDay:29),
      (GregYear:1913; Gregday:29; GregMonth:10; LunarYear:50; LunarMonth:10; LunarDay:30),
      (GregYear:1913; Gregday:28; GregMonth:11; LunarYear:50; LunarMonth:11; LunarDay:29),
      (GregYear:1913; Gregday:27; GregMonth:12; LunarYear:50; LunarMonth:12; LunarDay:30),
      (GregYear:1914; Gregday:26; GregMonth: 1; LunarYear:51; LunarMonth: 1; LunarDay:30),
      (GregYear:1914; Gregday:25; GregMonth: 2; LunarYear:51; LunarMonth: 2; LunarDay:30),
      (GregYear:1914; Gregday:27; GregMonth: 3; LunarYear:51; LunarMonth: 3; LunarDay:29),
      (GregYear:1914; Gregday:25; GregMonth: 4; LunarYear:51; LunarMonth: 4; LunarDay:30),
      (GregYear:1914; Gregday:25; GregMonth: 5; LunarYear:51; LunarMonth: 5; LunarDay:29),
      (GregYear:1914; Gregday:23; GregMonth: 6; LunarYear:51; LunarMonth:-5; LunarDay:30),
      (GregYear:1914; Gregday:23; GregMonth: 7; LunarYear:51; LunarMonth: 6; LunarDay:29),
      (GregYear:1914; Gregday:21; GregMonth: 8; LunarYear:51; LunarMonth: 7; LunarDay:30),
      (GregYear:1914; Gregday:20; GregMonth: 9; LunarYear:51; LunarMonth: 8; LunarDay:29),
      (GregYear:1914; Gregday:19; GregMonth:10; LunarYear:51; LunarMonth: 9; LunarDay:29),
      (GregYear:1914; Gregday:17; GregMonth:11; LunarYear:51; LunarMonth:10; LunarDay:30),
      (GregYear:1914; Gregday:17; GregMonth:12; LunarYear:51; LunarMonth:11; LunarDay:29),
      (GregYear:1915; Gregday:15; GregMonth: 1; LunarYear:51; LunarMonth:12; LunarDay:30),
      (GregYear:1915; Gregday:14; GregMonth: 2; LunarYear:52; LunarMonth: 1; LunarDay:30),
      (GregYear:1915; Gregday:16; GregMonth: 3; LunarYear:52; LunarMonth: 2; LunarDay:29),
      (GregYear:1915; Gregday:14; GregMonth: 4; LunarYear:52; LunarMonth: 3; LunarDay:30),
      (GregYear:1915; Gregday:14; GregMonth: 5; LunarYear:52; LunarMonth: 4; LunarDay:30),
      (GregYear:1915; Gregday:13; GregMonth: 6; LunarYear:52; LunarMonth: 5; LunarDay:29),
      (GregYear:1915; Gregday:12; GregMonth: 7; LunarYear:52; LunarMonth: 6; LunarDay:30),
      (GregYear:1915; Gregday:11; GregMonth: 8; LunarYear:52; LunarMonth: 7; LunarDay:29),
      (GregYear:1915; Gregday: 9; GregMonth: 9; LunarYear:52; LunarMonth: 8; LunarDay:30),
      (GregYear:1915; Gregday: 9; GregMonth:10; LunarYear:52; LunarMonth: 9; LunarDay:29),
      (GregYear:1915; Gregday: 7; GregMonth:11; LunarYear:52; LunarMonth:10; LunarDay:30),
      (GregYear:1915; Gregday: 7; GregMonth:12; LunarYear:52; LunarMonth:11; LunarDay:29),
      (GregYear:1916; Gregday: 5; GregMonth: 1; LunarYear:52; LunarMonth:12; LunarDay:29),
      (GregYear:1916; Gregday: 3; GregMonth: 2; LunarYear:53; LunarMonth: 1; LunarDay:30),
      (GregYear:1916; Gregday: 4; GregMonth: 3; LunarYear:53; LunarMonth: 2; LunarDay:30),
      (GregYear:1916; Gregday: 3; GregMonth: 4; LunarYear:53; LunarMonth: 3; LunarDay:29),
      (GregYear:1916; Gregday: 2; GregMonth: 5; LunarYear:53; LunarMonth: 4; LunarDay:30),
      (GregYear:1916; Gregday: 1; GregMonth: 6; LunarYear:53; LunarMonth: 5; LunarDay:29),
      (GregYear:1916; Gregday:30; GregMonth: 6; LunarYear:53; LunarMonth: 6; LunarDay:30),
      (GregYear:1916; Gregday:30; GregMonth: 7; LunarYear:53; LunarMonth: 7; LunarDay:30),
      (GregYear:1916; Gregday:29; GregMonth: 8; LunarYear:53; LunarMonth: 8; LunarDay:29),
      (GregYear:1916; Gregday:27; GregMonth: 9; LunarYear:53; LunarMonth: 9; LunarDay:30),
      (GregYear:1916; Gregday:27; GregMonth:10; LunarYear:53; LunarMonth:10; LunarDay:29),
      (GregYear:1916; Gregday:25; GregMonth:11; LunarYear:53; LunarMonth:11; LunarDay:30),
      (GregYear:1916; Gregday:25; GregMonth:12; LunarYear:53; LunarMonth:12; LunarDay:29),
      (GregYear:1917; Gregday:23; GregMonth: 1; LunarYear:54; LunarMonth: 1; LunarDay:30),
      (GregYear:1917; Gregday:22; GregMonth: 2; LunarYear:54; LunarMonth: 2; LunarDay:29),
      (GregYear:1917; Gregday:23; GregMonth: 3; LunarYear:54; LunarMonth:-2; LunarDay:29),
      (GregYear:1917; Gregday:21; GregMonth: 4; LunarYear:54; LunarMonth: 3; LunarDay:30),
      (GregYear:1917; Gregday:21; GregMonth: 5; LunarYear:54; LunarMonth: 4; LunarDay:29),
      (GregYear:1917; Gregday:19; GregMonth: 6; LunarYear:54; LunarMonth: 5; LunarDay:30),
      (GregYear:1917; Gregday:19; GregMonth: 7; LunarYear:54; LunarMonth: 6; LunarDay:30),
      (GregYear:1917; Gregday:18; GregMonth: 8; LunarYear:54; LunarMonth: 7; LunarDay:29),
      (GregYear:1917; Gregday:16; GregMonth: 9; LunarYear:54; LunarMonth: 8; LunarDay:30),
      (GregYear:1917; Gregday:16; GregMonth:10; LunarYear:54; LunarMonth: 9; LunarDay:30),
      (GregYear:1917; Gregday:15; GregMonth:11; LunarYear:54; LunarMonth:10; LunarDay:29),
      (GregYear:1917; Gregday:14; GregMonth:12; LunarYear:54; LunarMonth:11; LunarDay:30),
      (GregYear:1918; Gregday:13; GregMonth: 1; LunarYear:54; LunarMonth:12; LunarDay:29),
      (GregYear:1918; Gregday:11; GregMonth: 2; LunarYear:55; LunarMonth: 1; LunarDay:30),
      (GregYear:1918; Gregday:13; GregMonth: 3; LunarYear:55; LunarMonth: 2; LunarDay:29),
      (GregYear:1918; Gregday:11; GregMonth: 4; LunarYear:55; LunarMonth: 3; LunarDay:29),
      (GregYear:1918; Gregday:10; GregMonth: 5; LunarYear:55; LunarMonth: 4; LunarDay:30),
      (GregYear:1918; Gregday: 9; GregMonth: 6; LunarYear:55; LunarMonth: 5; LunarDay:29),
      (GregYear:1918; Gregday: 8; GregMonth: 7; LunarYear:55; LunarMonth: 6; LunarDay:30),
      (GregYear:1918; Gregday: 7; GregMonth: 8; LunarYear:55; LunarMonth: 7; LunarDay:29),