home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win31 / Mm220 / MM220.LZH / TSTAMP.MAC < prev    next >
Text File  |  1996-05-16  |  871b  |  29 lines
  1. // ［タイムスタンプマクロ］
  2. //  tstamp.mac
  3. //
  4. // カーソル位置へ各種フォーマットで、現在の日付・時刻の入力をします。
  5. // 必要でないスタンプ行は先頭に // を入れてコメント行として下さい。
  6. //
  7. main()
  8. {
  9.     int y, m, d, w, h, mi, s;
  10.     char *p, *p1, *p2;
  11.     
  12.     p = "SunMonTueWedThuFriSat";
  13.     p1 = "日月火水木金土";
  14.     p2 = "０１２３４５６７８９";
  15.     
  16.     GetDate(&y, &m, &d);    // 日付を得る
  17.     GetWeek(&w);            // 曜日を得る
  18.     y = y - 1900;
  19.     FPrint("%02d/%02d/%02d",y, m, d);        // 95/05/26
  20.     FPrint(" (%3s) ",p+(w*3));                //  (Fri) 
  21. //    FPrint("%02d年%02d月/%02d日",y, m, d);    // 95年05月/26日
  22.                                             // ９５年０５月２６日
  23. //    FPrint("９%2s年%2s%2s月%2s%2s日",p2+((y%10)*2), p2+((m/10)*2), p2+((m%10)*2), p2+((d/10)*2), p2+((d%10)*2));
  24. //    FPrint(" (%2s) ",p1+(w*2));                // (金) 
  25.  
  26. //    GetTime(&h, &mi, &s);    // 時刻を得る
  27. //    FPrint("%02d:%02d:%02d",h, mi, s);        // 22:43:50
  28. }
  29.