English
getdate.c
资源名称：zipsrc.zip [点击查看]
上传用户：jlteech
上传日期：2007-01-06
资源大小：349k
文件大小：10k
源码类别：
压缩解压
开发平台：
Visual C++
- /*
- Copyright (C) 1996 Mike White
- Permission is granted to any individual or institution to use, copy, or
- redistribute this software so long as all of the original files are included,
- that it is not sold for profit, and that this copyright notice is retained.
- */
- #include <windows.h>
- #include <stdio.h>
- #include <stdlib.h>
- #include "wiz.h"
- #ifdef __BORLANDC__
- #include <dir.h>
- #endif
- #include <dos.h>
- #include "helpids.h"
- #include <time.h>
- /****************************************************************************
- FUNCTION: GetDateProc(HWND, unsigned, WPARAM, LPARAM)
- PURPOSE: Processes messages for "Get Files For Archive" dialog box
- MESSAGES:
- WM_INITDIALOG - initialize dialog box
- WM_COMMAND - Input received
- ****************************************************************************/
- #ifdef __BORLANDC__
- #pragma warn -par
- #endif
- BOOL WINAPI
- GetDateProc(HWND hwndDlg, WORD wMessage, WPARAM wParam, LPARAM lParam)
- {
- unsigned int i, m, d, y;
- struct tm *date;
- time_t long_time;
- char digits[7];
- char Months[13][10] = {"January", "February", "March", "April", "May", "June",
- "July", "August", "September", "October", "November",
- "December"};
- static HWND hOK;
- switch (wMessage) {
- case WM_INITDIALOG:
- {
- hOK = GetDlgItem(hwndDlg, IDOK);
- for (i = 0; i < 12; i++)
- {
- SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_ADDSTRING,
- 0, (LPARAM)(LPCSTR)Months[i]);
- }
- for (i = 1; i < 32; i++)
- {
- SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_ADDSTRING,
- 0, (LPARAM)(LPCSTR)itoa(i, digits, 10));
- }
- for (i = 1980; i < 2100; i++)
- {
- SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_ADDSTRING,
- 0, (LPARAM)(LPCSTR)itoa(i, digits, 10));
- }
- /* Set date to today's date */
- time( &long_time ); /* Get time as long integer. */
- date = localtime( &long_time ); /* Convert to local time. */
- SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_SELECTSTRING,
- 0, (LPARAM)(LPCSTR)Months[date->tm_mon]);
- SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_SELECTSTRING,
- 0, (LPARAM)(LPCSTR)itoa(date->tm_mday, digits, 10));
- SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_SELECTSTRING,
- 0, (LPARAM)(LPCSTR)itoa((date->tm_year+1900), digits, 10));
- CenterDialog(GetParent(hwndDlg), hwndDlg); /* center on parent */
- }
- break;
- case WM_COMMAND:
- switch (LOWORD(wParam)) {
- case IDCANCEL:
- ZpOpt.Date[0] = ' ';
- EndDialog(hwndDlg, wParam);
- break;
- case IDC_DOWN:
- /* returns are 0 based indexes into list part of combo box */
- m = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_GETCURSEL,
- 0, 0) + 1;
- d = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_GETCURSEL,
- 0, 0) + 1;
- y = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_GETCURSEL,
- 0, 0);
- if (d > 1)
- d--;
- else
- {
- if (m > 1)
- {
- m--;
- }
- else
- {
- if (y != 0)
- {
- y--;
- m = 12;
- }
- }
- switch (m) {
- case 1:
- d = 31;
- break;
- case 2:
- d = 29;
- break;
- case 3:
- d = 30;
- break;
- case 4:
- d = 30;
- break;
- case 5:
- d = 31;
- break;
- case 6:
- d = 30;
- break;
- case 7:
- d = 31;
- break;
- case 8:
- d = 31;
- break;
- case 9:
- d = 30;
- break;
- case 10:
- d = 31;
- break;
- case 11:
- d = 30;
- break;
- case 12:
- d = 31;
- break;
- }
- }
- SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)Months[m-1]);
- SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)itoa(d, digits, 10));
- SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)itoa(y+1980, digits, 10));
- break;
- case IDC_UP:
- /* returns are 0 based indexes into list part of combo box */
- m = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_GETCURSEL,
- 0, 0) + 1;
- d = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_GETCURSEL,
- 0, 0) + 1;
- y = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_GETCURSEL,
- 0, 0);
- if (d < 29)
- d++;
- else
- {
- switch (m) {
- case 1:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 2:
- if (d < 29)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 3:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 4:
- if (d < 30)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 5:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 6:
- if (d < 30)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 7:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 8:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 9:
- if (d < 30)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 10:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 11:
- if (d < 30)
- d++;
- else
- {
- d = 1;
- m++;
- }
- break;
- case 12:
- if (d < 31)
- d++;
- else
- {
- d = 1;
- m = 1;
- y++;
- }
- break;
- }
- }
- SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)Months[m-1]);
- SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)itoa(d, digits, 10));
- SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_SELECTSTRING,
- (unsigned int)-1, (LPARAM)(LPCSTR)itoa(y+1980, digits, 10));
- break;
- case IDOK:
- /* returns are 0 based indexes into list part of combo box */
- m = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_MONTH), CB_GETCURSEL,
- 0, 0) + 1;
- d = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_DAY), CB_GETCURSEL,
- 0, 0) + 1;
- y = (unsigned int)SendMessage(GetDlgItem(hwndDlg, IDC_YEAR), CB_GETCURSEL,
- 0, 0);
- y = 80 + y;
- if (y > 99)
- {
- y = y - 100;
- y = y + 2000;
- }
- else
- y = y+1900;
- sprintf(ZpOpt.Date, "%02d%02d%02d", m,d,y);
- EndDialog(hwndDlg, wParam);
- break;
- }
- default:
- break;
- }
- return FALSE;
- }
- #ifdef __BORLANDC__
- #pragma warn .par
- #endif
