barriers / 阅读 / 详情

delphi中如何抓取文件夹的修改日期?

2023-07-19 12:30:13
共2条回复
wio

用这个方法可以取的文件夹的相关信息:

uses DateUtils;

procedure DirectoryDateTimeInfo(const path : string) ;

var

sr : TSearchRec;

modifiedTime : TDateTime; // 修改时间

lastWriteTime: TDateTime; // 最后写入时间

begin

if sysUtils.FindFirst(path, faDirectory, sr) = 0 then

modifiedTime := FileDateToDateTime(sr.Time) ; // 修改时间

// 或者用以下方法

FileTimeToSystemTime(sr.FindData.ftLastWriteTime, lastWriteTimeSystem) ;

with lastWriteTimeSystem do

lastWriteTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ; // 最后写入时间

ShowMessage(Format("Date Time Info for "%s"", [path])) ;

ShowMessage(Format("Last Modified Time: "%s"", [DateTimeToStr(modifiedTime)])) ;

ShowMessage(Format("Last Write Time: "%s"", [DateTimeToStr(lastWriteTime)])) ;

FindClose(sr) ;

end;

end;

康康map

如下代码

uses

comctrls, ShellAPI, commctrl;

{...}

const

FL_FOLDER = 1;

FL_FILE = FL_FOLDER + 1;

{ 文件日期类型 }

FD_CREATED = 1;

FD_ACCESSED = FD_CREATED + 1;

FD_MODIFIED = FD_ACCESSED + 1;

type

FileInfoPtr = ^FileInfoRec;

FileInfoRec = record

fName : string;

typ : byte;

Modified : TDateTime;

end;

function GetFileTimes(FileName : ShortString; typ : byte; var fDate : TDateTime) : Boolean;

var

fHandle : Integer;

fTimeC,

fTimeA,

fTimeM : TFileTime;

lTime : TFileTime;

sTime : TSystemTime;

begin { GetFileTimes }

fHandle := FileOpen(FileName, fmShareDenyNone);

fDate := 0.0;

result := (fHandle >= 0);

if result

then begin GetFileTime(fHandle, @fTimeC, @fTimeA, @fTimeM);

FileClose(fHandle);

case typ of

FD_CREATED : FileTimeToLocalFileTime(fTimeC, lTime);

FD_ACCESSED : FileTimeToLocalFileTime(fTimeA, lTime);

FD_MODIFIED : FileTimeToLocalFileTime(fTimeM, lTime);

end;

if FileTimeToSystemTime(lTime, sTime)

then fDate := EncodeDate(sTime.wYear, sTime.wMonth, sTime.wDay) + EncodeTime(sTime.wHour, sTime.wMinute, sTime.wSecond, sTime.wMilliSeconds);

end;

end; { of GetFileTimes }

相关推荐

Stime是什么?

函数名:stime功 能:设置时间
2023-07-18 18:21:263

vensim中smooth中的stime什么意思

{stime}为发生延迟的时间。举例:expected demand=SMOOTH(demand, time to form expectations)SMOOTH( {in} , {stime} )expected demand经历time to form expectations{stime}个时间步长后达到demand{in}
2023-07-18 18:21:341

stime密室红衣学姐攻略

游戏说明里面没有解决的方法吗,应该有吧。现在大家都去玩这个了,去网易官网下载,非官网的经常出问题的邀请码:gsak7435序列号激活方式:①打开客户端进入游戏,输入账号密码,选择服务器; ②完成新手教程后,点击界面右下方“+号”-“设置”-“礼包兑换”后填写序列号。
2023-07-18 18:21:423

stime单机游戏怎么不用登录stime

开启了离线模式。steam离线模式就是用户无需联网即可登录steam运行游戏,steam上有些单机游戏无需联网即可游玩,但是用户网络有时候不给力,所以这个离线模式就可以让你快速进入steam运行游戏。点击左上角steam按钮打开菜单,然后你就会看到进入离线模式,点击后重启steam,然后就可以进入steam的离线模式。
2023-07-18 18:22:081

stime真人密室逃脱童谣主题攻略求告知

第一,拼七巧板,好了之后会有抽屉打开,里面有本作业题,找到相同的两句话,是咚咚咚,敲击门旁边的盒子,会开门,里面有指纹密码锁,床底下有一个假的手指头,打开锁喉,柜子里面有男人的尸体,兜里有提示,第一个房间门里有数独题,完成后电脑会开机,根据提示输入电脑密码,看邮箱,会有抽屉打开,里面有女儿死亡时间,最后一个房间会打开,后面根据提示吧,也快结束了,一个小时左右
2023-07-18 18:22:163

stime游戏要无线网玩吗

STEAM本身有离线模式的。但使用离线模式前,你必须用本机成功登陆过你的账号才行。其次在离线模式下,STEAM游戏能不能玩,是要看游戏本身的。如果你的游戏是纯多人游戏,那离线肯定不能玩。如果你的游戏是有单人游戏,基本上可以玩。但部分游戏会要求强制联网,这是游戏开发商决定的,跟STEAM无关。
2023-07-18 18:22:391

stime密室逃脱童谣攻略

有的111看我简介~
2023-07-18 18:22:482

mysql 中,计算2个datetime类型的字段,相减得到的分钟数

阿斯
2023-07-18 18:23:454

vb这个延时函数怎么用。。追加高分

直接引用:Call Delayt 10000 "1万个微妙,就是10个秒。
2023-07-18 18:24:006

电脑上有游戏stime上没买能玩吗

你说的是steam吧,有些游戏需要花钱买
2023-07-18 18:24:243

stime真人密室逃脱谍影重重攻略

剧透,就是4个房间找密码,熟悉密码转数字文,射击,按钮
2023-07-18 18:24:421

javax.servlet.ServletException: Cannot find bean stime in any scope 这个错指的什么,怎么解决。

产生这个错误是因为:举例<bean:write name="xxx" property="stime"/>的时候,xxx这个对象找不到stime这个属性1、看看xxx中是否有这个属性2、看一下struts-config.xml中配置action-mapping里面的name值是否和上面的xxx匹配,注意大小写
2023-07-18 18:25:161

psvr进noln 是不是要有stime账号才能用psvr玩游戏

不需要。PLAYSTATIONVR(PSVR)是索尼电脑娱乐公司(SCE)推出的VR头显(虚拟现实头戴式显示器)。是基于PlayStation游戏机系列的第四代游戏主机(PS4)的虚拟现实装置。2016年10月13日全球同步发售。2016年3月17日,索尼正式公布了PSVR的售价为399美元。该价格即便是在购买齐全所需要的PS4主机和PSVR摄像头,总共也只需要810美元,该价格相对于单独设备就需要600美元的OculusRift和800美元的HTCVIVE来说很有优势,因为后两者还需要配置一台价格不菲的高性能电脑。面对如此低廉的价格,外界也有猜测索尼是否是在赔本赚吆喝,为了市场而采取的过激手段。
2023-07-18 18:25:361

JAVA题:有一个字符串,要将其中的数据拆分到一个实体类中,求高手赐教

这是xml解析,去看dom4j的资料吧。
2023-07-18 18:26:272

求HTML代码倒计时

实时倒计时代码,可以设定期限! <!--单位:秒-->剩余时间:<span id="endtime">10</span><script type="text/javascript">var CID = "endtime";if(window.CID != null){ var iTime = document.getElementById(CID).innerText; var Account; RemainTime();}function RemainTime(){ var iDay,iHour,iMinute,iSecond; var sDay="",sHour="",sMinute="",sSecond="",sTime=""; if (iTime >= 0) { iDay = parseInt(iTime/24/3600); if (iDay > 0) { sDay = iDay + "天"; } iHour = parseInt((iTime/3600)%24); if (iHour > 0){ sHour = iHour + "小时"; } iMinute = parseInt((iTime/60)%60); if (iMinute > 0){ sMinute = iMinute + "分钟"; } iSecond = parseInt(iTime%60); if (iSecond >= 0){ sSecond = iSecond + "秒"; } if ((sDay=="")&&(sHour=="")){ sTime="<span style="color:darkorange">" + sMinute+sSecond + "</font>"; } else { sTime=sDay+sHour+sMinute+sSecond; } if(iTime==0){ clearTimeout(Account); sTime="<span style="color:green">时间到了!</span>"; } else { Account = setTimeout("RemainTime()",1000); } iTime=iTime-1; } else { sTime="<span style="color:red">倒计时结束!</span>"; } document.getElementById(CID).innerHTML = sTime;}</script></body></html>
2023-07-18 18:26:341

单片机课程设计(数字时钟) 麻烦大家不要发链接 直接帮我把程序写过来。

老朱的错 真的 罪过
2023-07-18 18:27:371

linux下用ps -ef |grep ,结果哪个是进程号

第二列就是进程号,上面的13091就是,第三列是这个进程的父进程号,也就是12287
2023-07-18 18:27:541

SQL 用中Max函数取最新数据为何总是出现多条相同id,不同时间的记录?

stime 不是唯一
2023-07-18 18:28:345

我刚学c++,最近遇到一个问题困扰了我很久,就是如何将一个变量的值赋给一个数组(数组的下标不懂),程序如下

不明白什么意思 数组的下标就是为数组里面的元素做一个排号。从0开始,到数组长度-1 {a,d, t, e,c,h,u,} 0 1 2 3 4 5 6
2023-07-18 18:28:562

求大神写一下单片机at89c52控制秒表电路循环显示0到99的程序

你的电路上是无法分辨出这个数码管是共阴还是共阳的。
2023-07-18 18:29:062

SQL SERVER统计通话时间总长

没有专用函数,呵呵,你只能通过程序来处理计算,然后对结果进行时间格式化,别无它法.
2023-07-18 18:29:203

请问VB里面的循环结构的运行速度是:for 语句快,还是do__loog语句快呢?

其实执行的快慢主要跟循环体的代码有关系.帮你写了一个代码,你可以看到效果的.Private Declare Function GetTickCount Lib "kernel32" () As LongPrivate Sub Command1_Click()Dim sTime As Long, i As Long sTime = GetTickCount() Do i = i + 1 Loop Until i = 1000000 Print "总共耗时" & GetTickCount - sTime & "毫秒"End SubPrivate Sub Command2_Click()Dim sTime As Long, i As Long sTime = GetTickCount() For i = 1 To 2000000 i = i + 1 Next i Print "总共耗时" & GetTickCount - sTime & "毫秒"End Sub
2023-07-18 18:29:302

C++ 新手问题 if (stime != (time_t)(INVALID_VALUE))

c 库 time函数,如果时间获取失败,则返回-1。If the function could not retrieve the calendar time, it returns a value of -1.if (stime != (time_t)(INVALID_VALUE))这句话是判断是否获取时间失败。
2023-07-18 18:29:571

hurry up It’stime什么dinner?

可以填for。即,Hurry,up.It is time for dinner.句意: 快点,到了该吃晚饭的时间了。注意:1.for是介词,后可以接名词。2.固定句型it istime for sth“到了该做某事的时间了”。
2023-07-18 18:31:041

it,stimetomeet什么意思

It"s time to meet. 是见面的时候了。 该见面了。
2023-07-18 18:31:251

Romantic Stime什么意思

应该是Romantic time吧。浪漫时光。希望可以帮到你。祝学习进步。
2023-07-18 18:32:021

vb 获取网络时间

下面是一个比较完整的获取网络时间的代码,自动判断网络没连接或者连接失败类情况,不用on Error Resume Next:Private Sub Command1_Click()Dim obj, OBJStatus, url, GetText, iDim Retrieval url = "http://www.163.com" "判断网络是否连接 If url <> "" Then Set Retrieval = GetObject("winmgmts:\. ootcimv2") Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = "" & Mid(url, 8) & """) For Each OBJStatus In obj If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then Exit Sub Else Exit For "已连接则继续 End If Next End If "通过下载网页头信息获取网络时间 Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .setRequestHeader "If-Modified-Since", "0" .setRequestHeader "Cache-Control", "no-cache" .setRequestHeader "Connection", "close" .Send If .Readystate <> 4 Then Exit Sub GetText = .getAllResponseHeaders() i = InStr(1, GetText, "date:", vbTextCompare) If i > 0 Then "网页下载成功 i = InStr(i, GetText, ",", vbTextCompare) GetText = Trim(Mid(GetText, i + 1)) i = InStr(1, GetText, " GMT", vbTextCompare) GetText = Left(GetText, i - 1) MsgBox "网络时间:" & GetText End If End With Set Retrieval = Nothing Set OBJStatus = Nothing Set obj = NothingEnd Sub
2023-07-18 18:32:342

winform 获取两个具体时间的时间差

调用系统时间: DateTime.Now
2023-07-18 18:32:426

FLASH时间控制

比如你想在08:00~19:00之间从35频开始播放20:00~23:00从40频开始播放”请问在FLASH应该是:function CheckTimer(stime:String, etime:String):Boolean { //输入合法性检查[是否包含:号 / 位数是否为5 / 小时是否大于25] if (stime.indexOf(":")<>-1 and etime.indexOf(":")<>-1 and length(stime) == 5 and length(etime) == 5 and int(stime.substr(0, 2))<25 and int(etime.substr(0, 2))<25) {;//构建Date对象 Timer var Timer:Date = new Date(); var vHour:Number; var vMinute:Number;//获取小时及分钟数 vHour = Timer.getHours(); vMinute = Timer.getMinutes();//判断是否跨越凌晨 if (int(etime.substr(0, 2))>=int(stime.substr(0, 2))) { trace("内含"); //判断 if (vHour>=int(stime.substr(0, 2)) and vHour<=int(etime.substr(0, 2)) and vMinute>=int(stime.substr(3, 2)) and vMinute<int(etime.substr(3, 2))) {; return true; } else { return false; } } else { trace("外含"); //判断 if ((vHour>=int(stime.substr(0, 2)) and vMinute>=int(stime.substr(3, 2))) or (vHour<=int(etime.substr(0, 2))) and vMinute<int(etime.substr(3, 2))) {; return true; } else { return false; } } } else { return false; }}在第一帧添加上面的代码 后边需要用的帧引用就可以了记着时间格式要求必须是hh:mm 总共5位字符的函数会自动判断是跨越凌晨还是在同一表盘内比如if (CheckTimer("20:07","20:30") == true){ trace("在允许时间范围内")} else { trace("还没有到时间啊")}
2023-07-18 18:32:561

谁知道网页活动倒计时的代码

  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  <html xmlns="www.w3.org/1999/xhtml">  <head>  <title>实时倒计时</title>  <meta http-equiv="content-Type" content="text/html;charset=gb2312">  </head>  <body>  <!--单位:秒-->  剩余时间:<span id="endtime">10</span>  <script type="text/javascript">  var CID = "endtime";  if(window.CID != null)  {  var iTime = document.getElementById(CID).innerText;  var Account;  RemainTime();  }  function RemainTime()  {  var iDay,iHour,iMinute,iSecond;  var sDay="",sHour="",sMinute="",sSecond="",sTime="";  if (iTime >= 0)  {  iDay = parseInt(iTime/24/3600);  if (iDay > 0)  {  sDay = iDay + "天";  }  iHour = parseInt((iTime/3600)%24);  if (iHour > 0){  sHour = iHour + "小时";  }  iMinute = parseInt((iTime/60)%60);  if (iMinute > 0){  sMinute = iMinute + "分钟";  }  iSecond = parseInt(iTime%60);  if (iSecond >= 0){  sSecond = iSecond + "秒";  }  if ((sDay=="")&&(sHour=="")){  sTime="<span style="color:darkorange">" + sMinute+sSecond + "</font>";  }  else  {  sTime=sDay+sHour+sMinute+sSecond;  }  if(iTime==0){  clearTimeout(Account);  sTime="<span style="color:green">时间到了!</span>";  }  else  {  Account = setTimeout("RemainTime()",1000);  }  iTime=iTime-1;  }  else  {  sTime="<span style="color:red">倒计时结束!</span>";  }  document.getElementById(CID).innerHTML = sTime;  }  </script>  </body>  </html>
2023-07-18 18:33:031

sam.lt.stimeforthecake翻译成汉语啥意思

山姆,是时候吃蛋糕了。
2023-07-18 18:33:291

sql如何按日期中的月份查询

SELECT * FROM tableWHERE year(dateField)=2010 and MONTH(dateField)>=6 and MONTH(dateField)<=9
2023-07-18 18:33:407

c++控制电脑关机

#include <stdlib.h>system("shutdown -s -t 0");
2023-07-18 18:34:154

请C++能人帮我注释一下下一段代码

这么贴估计没人会理。。。
2023-07-18 18:34:502

lt,stimeforthecake!是什么意思?

该吃蛋糕的时间了
2023-07-18 18:34:574

it,stimef0rdinner,改为同义句

It"s time to have dinner .
2023-07-18 18:35:142

C语言用字符串直接给结构体赋值方法

结果: year:20130525 month:0525 day:25是你运行的结果吗
2023-07-18 18:35:365

vc ++获取程序执行时间时间

排序算法执行前设置定时器,代码结束后,返回定时器的时间。
2023-07-18 18:37:154

ASP如何把时间转成00:00:00形式

楼上仁兄的就可以。
2023-07-18 18:37:432

VB6 用Timer控件编写计时器代码?求高手帮忙

"form中3个按钮,一个timer,一个text1Dim secPrivate Sub Command1_Click() "开始计时按钮Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() "暂停计时按钮Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() "复位时间按钮Text1 = "已经过时间:0 小时 0 分 0 秒"Timer1.Enabled = False: sec = 0End SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()sec = sec + 1Text1 = "已经过时间:" & sec 3600 & " 小时 " & (sec Mod 3600) 60 & " 分 " & sec Mod 60 & " 秒"End Sub
2023-07-18 18:38:472

its6oclockitstimefordinner是什么意思?

It"s 6 o" clock. It"s time for dinner.意思是六点钟了,该吃晚饭了。
2023-07-18 18:39:162

mysql 如何实现Oracle中的这种日期查询?

求出一周数据排行榜 select *from DOWNLOADRECORDS where DOWNLOADRECORDS_TIME>DATE_SUB(now(),INTERVAL 7 DAY);求出24小时内数据排行榜 select *from DOWNLOADRECORDS where DOWNLOADRECORDS_TIME>DATE_SUB(now(),INTERVAL 1 DAY) 求出一月内数据排行榜 select *from DOWNLOADRECORDS where DOWNLOADRECORDS_TIME>DATE_SUB(now(),INTERVAL 1 MONTH)为日期增加一个时间间隔:date_add()set @mydate = now();select date_add(@mydate, interval 1 day); //加1天select date_add(@mydate, interval 1 hour); //加1小时select date_add(@mydate, interval 1 minute); // 加1分钟select date_add(@mydate, interval 1 second); //加1秒select date_add(@mydate, interval 1 microsecond);//加1毫秒select date_add(@mydate, interval 1 week);//加1周select date_add(@mydate, interval 1 month);//加1月select date_add(@mydate, interval 1 quarter);//加1季select date_add(@mydate, interval 1 year);//加1年select date_add(@mydate, interval "01:15:30" hour_second);//加上1小时15分30秒select date_add(@mydate, interval "1 01:15:30" day_second);//加1天 1小时15分30秒为mysql减去一个时间间隔把data_add改成data_sub就ok了呵呵MySql查询时间段的两种方法2010-03-22 10:52  MySql的时间字段有date、time、datetime、timestamp等,往往我们在存储数据的时候将整个时间存在一个字段中,采用datetime类型;也可能采用将日期和时间分离,即一个字段存储date,一个字段存储时间time。无论怎么存储,在实际应用中,很可能会出现包含“时间段”类型的查询,比如一个访问记录数据库,需要统计每天的访问数量,这个每天就是一个时间段。下面介绍MySql查询时间段的两种常见方法,其他数据库也可以类似实现。方法一:传统方式,即指定开始时间和结束时间,用"between”或者"<",">"来建立条件,比如查询2010年3月1日到2010年3月2日的数据条数,则可以使用select count(*) from tablename where datetimecolumn>="2010-03-01 00:00:00" and datetimecolumn<"2010-03-02 00:00:00"  但是,这种方法由于时间不是整数型数据,所以在比较的时候效率较低,所以如果数据量较大,可以将时间转换为整数型的UNIX时间戳,这就是方法二。方法二:UNIX时间戳,每个时间对应了一个唯一的UNIX时间戳,该时间戳是从"1970-01-01 00:00:00" 为0开始计时,每秒增加1。MySql内置了传统时间和UNIX时间的互换函数,分别为UNIX_TIMESTAMP(datetime)FROM_UNIXTIME(unixtime)比如运行SELECT UNIX_TIMESTAMP("2010-03-01 00:00:00")返回1267372800运行SELECT FROM_UNIXTIME(1267372800)返回"2010-03-01 00:00:00"  于是,我们可以将时间字段里的数据替换为整型的UNIX时间,这样,比较时间就成为整数比较了,建立索引后能大大提高效率。在查询的时候,需要把起点时间和结尾时间分别转换为UNIX时间再进行比较,如select count(*) from tablename where datetimecolumn>=UNIX_TIMESTAMP("2010-03-01 00:00:00") anddatetimecolumn<UNIX_TIMESTAMP("2010-03-02 00:00:00")  也可以在调用程序中先转换为UNIX时间再传入MySql,总之这种方式有利于快速查询时间段,不过显示时间则需要再反转一次。
2023-07-18 18:39:462

A ________ expression appeared on her face when she learned his ________ bicycle had been stolen.

答案Ca surprised expression吃惊的表情。racing bicycle赛车。
2023-07-18 18:38:001

韩国的SBS,KBS和MBC分别是什么时候建立的

mbc 1961sbs 1990kbs 1953
2023-07-18 18:38:012

石家庄万象城入驻品牌都有哪些?

万象城购物中心规划地下一层和地上七层,建筑面积约17万平米,打造集零售、餐饮、娱乐、休闲、文化、康体等元素于一身,是石家庄业态全的商业综合体。Ole"精品超市、N/A、I.T、DKNY、Miss Sixty、金宝贝、美吉姆、ME LAND儿童成长乐园、
2023-07-18 18:38:0310

下面关于“EOF”的叙述,正确的是

【答案】:B在c语言中,或更精确地说成c标准函数库中表示文件结束符(end of file)。在while循环中以EOF作为文件结束标志,这种以EOF作为文件结束标志的文件,必须是文本文件。在文本文件中,数据都是以字符的ASCII代码值的形式存放。我们知道,ASCII代码值的范围是0~255,不可能出现-1,因此可以用EOF作为文件结束标志。
2023-07-18 18:38:051

at our great sale 与 on sale 有区别吗

at our great sale没什么区别,都是降价处理的意思
2023-07-18 18:37:592

c语言中NULL和EOF有什么区别?

End Of File,在电脑的术语缩写通常为 EOF,在作业系统决定资料源无更多的资料可读取。资料源通常称为档案或串流。在 C语言,或更精确地说成 C标准函式库,档案存取或其它 I/O 功能可能传回等于象征符号值 (巨集) EOF 指示档案结束的情形发生。实际上 EOF 的值通常为 -1,但它依系统有所不同。巨集 EOF 会在编译原始码前展开实际值给预处理器。对于NULL是表示空的意思。
2023-07-18 18:37:582

Kbs这个单位是如何衡量音乐品质的高低的?

评价音质有三个指标:采样频率、采样精度、编码位速率。 通常一首MP3可以这么表示:44100Hz(采样频率,每秒采样44100次)、16bit(采样精度,表示可以用2的16次方=65536种数据来区分一个音符)、128kbps(编码位速率,每秒钟文件的大小是128kbit=16KB,通常CD的位速率是1411kbps,也就是说MP3在编码的时候省略了很多内容,这样才减小了体积,所以音质不如CD好。)。 这三个指标越高,则音质越好。
2023-07-18 18:37:531

全球做农机的企业很多,谁有全球农机企业的排行榜,从第一到第十就行

目前国外主要的农机企业有:年销售收入在百亿美元级的迪尔(Dcere)公司和凯斯纽荷兰(CNH)公司,年销售收入在几十亿美元级的阿格科(AGCO)公司、久保田(Kubota)公司和克拉斯(Claas)公司,年销售收入在几亿美元级的沙姆道依兹法尔(Same Deutz-Fahr)公司、库恩(Kuhn)公司、格兰(Kvemeland)公司以及日本、韩国、独联体、印度等国的其它农机企业。 1 世界上最大的农机企业——美国迪尔公司的历史可追溯到1837年,由约翰迪尔(John Deere)先生创立,1868年开始使用“Deem & Company”这一公司名称。目前商务遍及160个国家与地区,2003年底总资产262.58亿美元,雇员43221人。 凯斯纽荷兰公司于1999年11月由欧洲的纽荷兰公司与美国的凯斯公司合并而成,2003年年底总资产186.61亿美元。凯斯公司的历史可追溯到1842年,由杰罗姆凯斯(Jerome Increase Case)先生创立。纽荷兰公司的历史可追溯到1895年德国克拉斯公司是世界上著名的联合收割机制造商,由弗朗兹?克拉斯(Franz Claas)先生于1914年建立。1936年推出它的第一台牵引式联合收割机,1953年推出自走式联合收割机,20世纪末期开始介入拖拉机。2003年年底的总资产有14.128亿欧元,雇员8391人。 沙姆道依兹法尔集团以意大利的沙姆公司和德国的道依兹法尔公司为主体,于1995年成立,2002年年底的总资产有5.313亿欧元,雇员2622人。沙姆公司的历史可追溯到1927年,道依兹法尔公司的历史可追溯到1864年农机具著名制造商是库恩公司和格兰公司。法国的库恩公司于1828年由约瑟夫库恩(Joseph Kuhn)先生创立,从1946年起隶属于总部在瑞士的Bucher Guyer公司。挪威的格兰公司于1879年由加百利?格兰(Gabriel Kvemeland)先生创立,1928年制造出它的第一台机型犁。2003年年底总资产有3.64亿欧元,雇员3100人。
2023-07-18 18:37:531