-
Notifications
You must be signed in to change notification settings - Fork 1
/
GetDateFile.prg
49 lines (33 loc) · 1.63 KB
/
GetDateFile.prg
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
*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
FUNCTION GetDateFile()
*-----------------------------------------------------------------------------*
LOCAL cDateFile
LOCAL cFile
LOCAL aFileInfo
cDateFile := ""
cFile := ""
aFileInfo := {}
cFile := GetTempFolder() + "\lesp.csv"
IF FILE ( cFile )
aFileInfo := Directory ( cFile )
cDateFile := DtoC( aFileInfo[ 1 , F_DATE ] ) + " " + aFileInfo[ 1 , F_TIME ]
cDateFile := STRTRAN( cDateFile , "/01/" , " stycznia " )
cDateFile := STRTRAN( cDateFile , "/02/" , " lutego " )
cDateFile := STRTRAN( cDateFile , "/03/" , " marca " )
cDateFile := STRTRAN( cDateFile , "/04/" , " kwietnia " )
cDateFile := STRTRAN( cDateFile , "/05/" , " maja " )
cDateFile := STRTRAN( cDateFile , "/06/" , " czerwca " )
cDateFile := STRTRAN( cDateFile , "/07/" , " lipca " )
cDateFile := STRTRAN( cDateFile , "/08/" , " sierpnia " )
cDateFile := STRTRAN( cDateFile , "/09/" , " września " )
cDateFile := STRTRAN( cDateFile , "/10/" , " października " )
cDateFile := STRTRAN( cDateFile , "/11/" , " listopada " )
cDateFile := STRTRAN( cDateFile , "/12/" , " grudnia " )
ENDIF
RETURN cDateFile
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*