home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 November
/
VPR9811A.BIN
/
OLS
/
mm98480
/
mm98480.lzh
/
TSTAMP.MAC
< prev
next >
Wrap
Text File
|
1996-05-17
|
871b
|
29 lines
// [タイムスタンプマクロ]
// tstamp.mac
//
// カーソル位置へ各種フォーマットで、現在の日付・時刻の入力をします。
// 必要でないスタンプ行は先頭に // を入れてコメント行として下さい。
//
main()
{
int y, m, d, w, h, mi, s;
char *p, *p1, *p2;
p = "SunMonTueWedThuFriSat";
p1 = "日月火水木金土";
p2 = "0123456789";
GetDate(&y, &m, &d); // 日付を得る
GetWeek(&w); // 曜日を得る
y = y - 1900;
FPrint("%02d/%02d/%02d",y, m, d); // 95/05/26
FPrint(" (%3s) ",p+(w*3)); // (Fri)
// FPrint("%02d年%02d月/%02d日",y, m, d); // 95年05月/26日
// 95年05月26日
// FPrint("9%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));
// FPrint(" (%2s) ",p1+(w*2)); // (金)
// GetTime(&h, &mi, &s); // 時刻を得る
// FPrint("%02d:%02d:%02d",h, mi, s); // 22:43:50
}